From f859b70763be347e2ee091b9a44d672036a37801 Mon Sep 17 00:00:00 2001
From: gerd <gerd>
Date: Sat, 17 May 2003 16:20:36 +0000
Subject: [PATCH] 	Missing MAKE-LOAD-FORM methods detected by Paul Dietz.

	* src/pcl/env.lisp (make-load-form): Define default methods
	for standard-object and condition.
---
 pcl/env.lisp | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/pcl/env.lisp b/pcl/env.lisp
index 3b678afc7..4ad93356f 100644
--- a/pcl/env.lisp
+++ b/pcl/env.lisp
@@ -26,7 +26,7 @@
 ;;;
 
 (file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/env.lisp,v 1.21 2003/05/04 13:11:21 gerd Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/env.lisp,v 1.22 2003/05/17 16:20:36 gerd Exp $")
 ;;;
 ;;; Basic environmental stuff.
 ;;;
@@ -276,6 +276,14 @@
 
 (defgeneric make-load-form (object &optional environment))
 
+(macrolet ((define-default-method (class)
+	     `(defmethod make-load-form ((object ,class) &optional env)
+		(declare (ignore env))
+		(error "~@<Default ~s method for ~s called.~@>"
+		       'make-load-form object))))
+  (define-default-method condition)
+  (define-default-method standard-object))
+
 (defmethod make-load-form ((object structure-object) &optional environment)
   (declare (ignore environment))
   (kernel:make-structure-load-form object))
-- 
GitLab