diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-03 18:20:54 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-03 18:20:54 +0100 |
| commit | 7736eab7d8a7b415dba3676a495c0ac3b2e28020 (patch) | |
| tree | 4c3867d452161dae48411be4f8b432cb07ad4c0e /Lisp | |
| parent | e49008a9a4b7d9a0ab7e31f2ff53ff4e497b8d0b (diff) | |
objcl_create_imp: Make mprotect(2) errors non-fatal.
darcs-hash:61cdfff143da2c65b30b3f32c77e4c9ef98b704e
Diffstat (limited to 'Lisp')
| -rw-r--r-- | Lisp/method-definition.lisp | 2 |
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)) |