X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Fdefstruct.lisp;h=a0839b36af775efdcba91e660452b37913ea70bb;hb=56f96e77ade913d6363a3068c94e60f44ae9b3e7;hp=410759cda6a9b331120af9a88a28b5f3e283c940;hpb=4ae1b794a5d6a90794468cf8017f5307f2c30dfe;p=sbcl.git

diff --git a/src/code/defstruct.lisp b/src/code/defstruct.lisp
index 410759c..a0839b3 100644
--- a/src/code/defstruct.lisp
+++ b/src/code/defstruct.lisp
@@ -1211,7 +1211,7 @@
 ;;; the appropriate args to make a constructor.
 (defun create-boa-constructor (defstruct boa creator)
   (multiple-value-bind (req opt restp rest keyp keys allowp aux)
-      (sb!kernel:parse-lambda-list (second boa))
+      (parse-lambda-list (second boa))
     (collect ((arglist)
 	      (vars)
 	      (types))