summaryrefslogtreecommitdiff
path: root/Lisp
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2008-03-03 18:20:54 +0100
committerMatthias Benkard <code@mail.matthias.benkard.de>2008-03-03 18:20:54 +0100
commit7736eab7d8a7b415dba3676a495c0ac3b2e28020 (patch)
tree4c3867d452161dae48411be4f8b432cb07ad4c0e /Lisp
parente49008a9a4b7d9a0ab7e31f2ff53ff4e497b8d0b (diff)
objcl_create_imp: Make mprotect(2) errors non-fatal.
darcs-hash:61cdfff143da2c65b30b3f32c77e4c9ef98b704e
Diffstat (limited to 'Lisp')
-rw-r--r--Lisp/method-definition.lisp2
1 files changed, 1 insertions, 1 deletions
diff --git a/Lisp/method-definition.lisp b/Lisp/method-definition.lisp
index a3ebaef..f368423 100644
--- a/Lisp/method-definition.lisp
+++ b/Lisp/method-definition.lisp
@@ -80,7 +80,7 @@
(defun intern-callback-name (method)
(or (gethash method *callback-names* nil)
(setf (gethash method *callback-names* nil)
- (intern (format nil "~A (~A)"
+ (intern (format nil "~A ~A"
(generic-function-name
(method-generic-function method))
(sort (copy-list (method-qualifiers method))