method.lsp: declare ignoring unused variable. Closes #12 (#11).
authorDaniel Kochmański <dkochmanski@hellsgate.pl>
Sat, 14 Mar 2015 21:02:52 +0000 (22:02 +0100)
committerDaniel Kochmański <dkochmanski@hellsgate.pl>
Sat, 14 Mar 2015 21:02:52 +0000 (22:02 +0100)
src/clos/method.lsp

index 230a015..56c5c9a 100644 (file)
        (values fn-form nil))))
 
 (defun make-raw-lambda (name lambda-list required-parameters specializers body env)
-  (declare (si::c-local))
+  (declare (si::c-local)
+          (ignore env))
   (multiple-value-bind (declarations real-body documentation)
       (sys::find-declarations body)
     ;; FIXME!! This deactivates the checking of keyword arguments
@@ -457,4 +458,4 @@ have disappeared."
        (symbol-macrolet ,accessors ,@body))))
 
 ;;; Force the compiler into optimizing use of gethash inside methods:
-(setf (symbol-function 'SLOT-INDEX) (symbol-function 'GETHASH))
\ No newline at end of file
+(setf (symbol-function 'SLOT-INDEX) (symbol-function 'GETHASH))