Commit 27b617a2 authored by Marco Antoniotti's avatar Marco Antoniotti 💬
Browse files

Fixed a couple of typos and an error (too few

arguments to ERROR).
parent 66a32504
......@@ -1030,7 +1030,7 @@ The defaults for each of the keyword arguments are implementation dependent.
(destructuring-bind (sc-type &optional by-kwd constructor)
spec
(when (and by-kwd (string-not-equal by-kwd "BY"))
(error "Unknown keyword ~A in ~S." (cons 'structure spec)))
(error "Unknown keyword ~A in ~S." by-kwd (cons 'structure spec)))
(when (and by-kwd (null constructor))
(error "Missing constructor in ~S." (cons 'structure spec)))
......@@ -1053,7 +1053,7 @@ The defaults for each of the keyword arguments are implementation dependent.
(destructuring-bind (sc-type &optional by-kwd constructor)
spec
(when (and by-kwd (string-not-equal by-kwd "BY"))
(error "Unknown keyword ~A in ~S." (cons 'structure spec)))
(error "Unknown keyword ~A in ~S." by-kwd (cons 'structure spec)))
(when (and by-kwd (null constructor))
(error "Missing constructor in ~S." (cons 'structure spec)))
......@@ -1062,7 +1062,7 @@ The defaults for each of the keyword arguments are implementation dependent.
#'(lambda (&rest args)
(apply #'make-instance sc-type args))))
)
(apply constr arguments)))))
(apply constr arguments))))
;;;; end of file -- new-operator.lisp --
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment