From: William H. N. <wn...@us...> - 2002-08-27 13:04:56
|
Update of /cvsroot/sbcl/sbcl/src/code In directory usw-pr-cvs1:/tmp/cvs-serv31387/src/code Modified Files: condition.lisp debug.lisp Log Message: 0.7.7.3: deleted warnings about :WRITER in DEFINE-CONDITION, since antonio martinez pointed out (sbcl-devel 2002-08-22) that they're bogus fixed brain-damaged misparenthesization in debug.lisp (pointed out by CSR on #lisp IRC) Index: condition.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/code/condition.lisp,v retrieving revision 1.14 retrieving revision 1.15 diff -u -d -r1.14 -r1.15 --- condition.lisp 9 Jun 2002 02:30:02 -0000 1.14 +++ condition.lisp 27 Aug 2002 13:04:52 -0000 1.15 @@ -497,10 +497,6 @@ (t (error "unknown option: ~S" (first option))))) - (when (all-writers) - (warn "Condition slot setters probably not allowed in ANSI CL:~% ~S" - (all-writers))) - `(progn (eval-when (:compile-toplevel :load-toplevel :execute) (%compiler-define-condition ',name ',parent-types ',layout)) Index: debug.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/code/debug.lisp,v retrieving revision 1.49 retrieving revision 1.50 diff -u -d -r1.49 -r1.50 --- debug.lisp 14 Aug 2002 13:16:12 -0000 1.49 +++ debug.lisp 27 Aug 2002 13:04:52 -0000 1.50 @@ -291,7 +291,7 @@ (code-location-selector (missing-arg) :type (or symbol integer) :read-only t) ;; the number used when listing the active breakpoints, and when ;; deleting breakpoints - (breakpoint-number (missing-arg) :type integer) :read-only t) + (breakpoint-number (missing-arg) :type integer :read-only t)) (defun create-breakpoint-info (place breakpoint code-location-selector &key (break #'identity) |