Skip to content
Snippets Groups Projects
Commit bfd2a754 authored by gerd's avatar gerd
Browse files

* src/pcl/init.lisp (make-instance): Undo last change.

parent f6fdc008
No related branches found
No related tags found
No related merge requests found
...@@ -26,7 +26,7 @@ ...@@ -26,7 +26,7 @@
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/init.lisp,v 1.18 2003/04/23 16:47:35 gerd Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/init.lisp,v 1.19 2003/04/23 17:38:59 gerd Exp $")
;;; ;;;
;;; This file defines the initialization and related protocols. ;;; This file defines the initialization and related protocols.
...@@ -46,13 +46,6 @@ ...@@ -46,13 +46,6 @@
;; ;;
(unless (class-finalized-p class) (unless (class-finalized-p class)
(finalize-inheritance class)) (finalize-inheritance class))
;;
;; ANSI 7.1.2: :ALLOW-OTHER-KEYS NIL is implicitly there, which
;; matters if some slot has an :INITARG :ALLOW-OTHER-KEYS.
(when (eq (getf initargs :allow-other-keys '.not-there.)
'.not-there.)
(setq initargs (append initargs '(:allow-other-keys nil))))
;;
(let ((class-default-initargs (class-default-initargs class))) (let ((class-default-initargs (class-default-initargs class)))
(when class-default-initargs (when class-default-initargs
(setf initargs (default-initargs class initargs class-default-initargs))) (setf initargs (default-initargs class initargs class-default-initargs)))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment