Skip to content
Snippets Groups Projects
Commit 55d0ffca authored by Pascal Costanza's avatar Pascal Costanza
Browse files

In SBCL, ensure-layered-method now can take the :method-class argument again.

darcs-hash:022ad895f7e702dddc5e3ffb1f122abae99b3f96
parent a922dc0a
No related branches found
No related tags found
No related merge requests found
...@@ -35,7 +35,7 @@ ...@@ -35,7 +35,7 @@
(layered-function-name (layered-function-name
lambda-expression lambda-expression
&key &key
#-(or allegro clisp cmu ecl mcl openmcl sbcl) #-(or allegro clisp cmu ecl mcl openmcl)
(method-class (method-class
(generic-function-method-class (generic-function-method-class
(fdefinition (get-layered-function-definer-name layered-function-name)))) (fdefinition (get-layered-function-definer-name layered-function-name))))
...@@ -51,8 +51,8 @@ ...@@ -51,8 +51,8 @@
(error "Incorrect lambda expression: ~S." lambda-expression)) (error "Incorrect lambda expression: ~S." lambda-expression))
(ensure-method (fdefinition (get-layered-function-definer-name layered-function-name)) (ensure-method (fdefinition (get-layered-function-definer-name layered-function-name))
`(lambda (,layer-arg ,@args) ,@body) `(lambda (,layer-arg ,@args) ,@body)
#-(or allegro clisp cmu ecl mcl openmcl sbcl) :method-class #-(or allegro clisp cmu ecl mcl openmcl) :method-class
#-(or allegro clisp cmu ecl mcl openmcl sbcl) method-class #-(or allegro clisp cmu ecl mcl openmcl) method-class
:qualifiers qualifiers :qualifiers qualifiers
:lambda-list `(,layer-arg ,@lambda-list) :lambda-list `(,layer-arg ,@lambda-list)
:specializers (cons (prepare-layer in-layer) specializers))))) :specializers (cons (prepare-layer in-layer) specializers)))))
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment