[Bug-openmcl] check-generic-function-lambda-list

[bryan o'connor]

check-generic-function-lambda-list has a small bug with
&optional when defaults are set:

CCL> (check-generic-function-lambda-list '(&optional (errorp)))
T
CCL> (check-generic-function-lambda-list '(&optional (errorp t)))
[...] Bad generic function lambda list: (&OPTIONAL (ERRORP T))

					...bryan


Index: l1-clos-boot.lisp
===================================================================
RCS file: /usr/local/tmpcvs/ccl-0.14-dev/ccl/level-1/l1-clos-boot.lisp,v
retrieving revision 1.25
diff -c -r1.25 l1-clos-boot.lisp
*** l1-clos-boot.lisp   30 Jan 2004 19:32:35 -0000      1.25
--- l1-clos-boot.lisp   2 Feb 2004 04:59:43 -0000
***************
*** 3095,3101 ****
               (unless (or (symbolp elt)
                           (and (listp elt)
                                (non-nil-symbol-p (car elt))
!                              (null (cdr elt))))
                 (return-from checkit (setq ok nil)))))
           (dolist (elt (cdr keytail))
             (when (memq elt lambda-list-keywords) (return))
--- 3095,3101 ----
               (unless (or (symbolp elt)
                           (and (listp elt)
                                (non-nil-symbol-p (car elt))
!                              (not (null (cdr elt)))))
                 (return-from checkit (setq ok nil)))))
           (dolist (elt (cdr keytail))
             (when (memq elt lambda-list-keywords) (return))