mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-06 09:20:40 -08:00
Code Issues Projects Releases Packages Wiki Activity

Fixed typo in error message

Browse source
This commit is contained in:
jjgarcia 2006-03-06 14:43:08 +00:00
parent 9b720a0c73
commit 89ef1af3b4
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/clos/slot.lsp
View file

@ -43,10 +43,10 @@
(defun make-simple-slotd (&key name initform initfunction type allocation initargs readers writers documentation)
(list name initform initfunction type allocation initargs readers writers documentation))
(defun canonical-slot-to-direct-slot (slotd)
(defun canonical-slot-to-direct-slot (class slotd)
(if (find-class 'slot-definition nil)
(apply #'make-instance
(apply #'direct-slot-definition-class 'standard-direct-slot-definition slotd)
(apply #'direct-slot-definition-class class slotd)
slotd)
(apply #'make-simple-slotd slotd)))
@ -98,7 +98,7 @@
(when (and (member option '(:allocation :initform :type :documentation))
(getf options option))
(si::simple-program-error
"In the slot descrition ~S,~%the option ~S is duplicated"
"In the slot description ~S,~%the option ~S is duplicated"
slot option))
(case option
(:initarg (push value initargs))