Update of /cvsroot/sbcl/sbcl/src/compiler
In directory usw-pr-cvs1:/tmp/cvs-serv29788/src/compiler
Modified Files:
macros.lisp
Log Message:
0.7.9.33:
Make FUNCALL QUOTE signal an UNDEFINED-FUNCTION error, as
required under the CLHS FUNCALL description
... detected by Paul Dietz' test suite
Index: macros.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/macros.lisp,v
retrieving revision 1.30
retrieving revision 1.31
diff -u -d -r1.30 -r1.31
--- macros.lisp 10 Oct 2002 07:16:15 -0000 1.30
+++ macros.lisp 6 Nov 2002 09:59:29 -0000 1.31
@@ -78,8 +78,8 @@
`((setf (symbol-function ',name)
(lambda (&rest rest)
(declare (ignore rest))
- (error "can't FUNCALL the SYMBOL-FUNCTION of ~
- special forms")))))))))
+ (error 'special-form-function
+ :name ',name)))))))))
;;; (This is similar to DEF-IR1-TRANSLATOR, except that we pass if the
;;; syntax is invalid.)
|