From 89ef1af3b48aedb63cf9e712cf98a49f65f9b28e Mon Sep 17 00:00:00 2001 From: jjgarcia Date: Mon, 6 Mar 2006 14:43:08 +0000 Subject: [PATCH] Fixed typo in error message --- src/clos/slot.lsp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/clos/slot.lsp b/src/clos/slot.lsp index ed41bfb71..5d37775d2 100644 --- a/src/clos/slot.lsp +++ b/src/clos/slot.lsp @@ -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))