(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
(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))