[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
90's PCL -- a very minor bug
- To: commonloops.pa@Xerox.COM
- Subject: 90's PCL -- a very minor bug
- From: smh@franz.com (Steve Haflich)
- Date: Wed, 14 Feb 90 13:33:33 PST
- Redistributed: commonloops.pa
In defclass.lisp there is a space after the ~ at the end of the line,
causing format to fail on the error message.
(defun expand-defclass (name supers slots options)
...
(when (eq (car option) ':metaclass)
(unless (legal-class-name-p (cadr option))
(error "The value of the :metaclass option (~S) is not a~%~
legal class name."
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;HERE;;;;;;;;;;;;;;;;^
...