Skip to content
Snippets Groups Projects
Commit 8f805077 authored by pmai's avatar pmai
Browse files

Checked in a fix from SBCL for the "exporting symbols breaks PCL" bug,

as pointed out on cmucl-imp by Christophe Rhodes.  The original SBCL
changelog says:
0.7.6.24:
	fixing tonym's GRUFFALO bug (from #lisp)...
	...made MAKE-INSTANCE-FUNCTION-SYMBOL use two colons whether
		or not the symbol is currently exported, so that
		EXPORTing the class name after class definition and
		before class use doesn't lose track of the function
	...incremented fasl file format to reflect this
	(The whole PCL approach of encoding stuff into hairy symbol
		names interned in odd places is still broken, as can
		easily be demonstrated by renaming packages. But
		that's unlikely to be fixed soon, and maybe in the
		meantime this easy fix can help a little.)
parent dac93106
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/Attic/fast-init.lisp,v 1.10 2002/09/07 13:16:48 pmai Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/Attic/fast-init.lisp,v 1.11 2002/10/18 23:31:03 pmai Exp $")
;;; ;;;
;;; This file defines the optimized make-instance functions. ;;; This file defines the optimized make-instance functions.
;;; ;;;
...@@ -135,8 +135,11 @@ ...@@ -135,8 +135,11 @@
(*print-length* nil) (*print-level* nil) (*print-length* nil) (*print-level* nil)
(*print-circle* nil) (*print-case* :upcase) (*print-circle* nil) (*print-case* :upcase)
(*print-pretty* nil)) (*print-pretty* nil))
(intern (format nil "MAKE-INSTANCE ~S ~S ~S" (intern (format nil "MAKE-INSTANCE ~A::~A ~S ~S"
class-name keys allow-other-keys-p)))))))) (package-name (symbol-package class-name))
(symbol-name class-name)
keys
allow-other-keys-p))))))))
(defun make-instance-1 (class initargs) (defun make-instance-1 (class initargs)
(apply #'make-instance class initargs)) (apply #'make-instance class 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