Commit 788b9b4c authored by Marius Gerbershagen's avatar Marius Gerbershagen
Browse files

clos: FUNCTION-KEYWORDS must be a generic function

parent 6f3f52d4
...@@ -18,7 +18,7 @@ ...@@ -18,7 +18,7 @@
;;; Method ;;; Method
;;; ---------------------------------------------------------------------- ;;; ----------------------------------------------------------------------
(defun function-keywords (method) (defmethod function-keywords ((method standard-method))
(multiple-value-bind (reqs opts rest-var key-flag keywords) (multiple-value-bind (reqs opts rest-var key-flag keywords)
(si::process-lambda-list (slot-value method 'lambda-list) 'function) (si::process-lambda-list (slot-value method 'lambda-list) 'function)
(declare (ignore reqs opts rest-var)) (declare (ignore reqs opts rest-var))
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment