From: Christophe R. <cr...@us...> - 2003-05-14 14:16:45
|
Update of /cvsroot/sbcl/sbcl/src/code In directory sc8-pr-cvs1:/tmp/cvs-serv19563/src/code Modified Files: defboot.lisp Log Message: 0.8alpha.0.29: A couple of extremely minor fixes ... "oops" in type declaration in %DEFUN ... fix KLUDGE in IMMEDIATE-CONSTANT-SC for x86, and allow (in principle) building from lisps with larger MOST-POSITIVE-FIXNUM as well as smaller. Index: defboot.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/code/defboot.lisp,v retrieving revision 1.32 retrieving revision 1.33 diff -u -d -r1.32 -r1.33 --- defboot.lisp 1 Apr 2003 13:18:19 -0000 1.32 +++ defboot.lisp 14 May 2003 14:16:41 -0000 1.33 @@ -199,7 +199,7 @@ #-sb-xc-host (defun %defun (name def doc) (declare (type function def)) - (declare (type (or null simple-string doc))) + (declare (type (or null simple-string) doc)) (aver (legal-fun-name-p name)) ; should've been checked by DEFMACRO DEFUN (when (fboundp name) (/show0 "redefining NAME in %DEFUN") |