Update of /cvsroot/sbcl/sbcl/src/code
In directory sc8-pr-cvs1:/tmp/cvs-serv6863/src/code
Fix compiled calls to bit-array functions to allow an explicit
opt-arg of NIL
... and also fix the defknowns for %BITSET and %SBITSET, even though
currently they always get SOURCE-TRANSFORMed away.
... minimal tests for these two issues
RCS file: /cvsroot/sbcl/sbcl/src/code/array.lisp,v
retrieving revision 1.32
retrieving revision 1.33
diff -u -d -r1.32 -r1.33
--- array.lisp 27 Jan 2003 17:27:52 -0000 1.32
+++ array.lisp 27 Jan 2003 17:45:43 -0000 1.33
@@ -444,6 +444,13 @@
;;; But that doesn't seem to be what happens in CMU CL.
+;;; KLUDGE: this is probably because ANSI, in its wisdom (CLHS
+;;; 188.8.131.52) requires implementations to support
+;;; (SETF (APPLY #'AREF ...) ...)
+;;; [and also #'BIT and #'SBIT]. Yes, this is terrifying, and it's
+;;; also terrifying that this sequence of definitions causes it to
;;; Also, it would be nice to make DESCRIBE FOO tell whether a symbol
;;; has a setf expansion and/or a setf function defined.