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

Remove the bogus defgeneric for make-load-form-saving-slots.

parent f19e1ba0
No related branches found
No related tags found
No related merge requests found
...@@ -26,7 +26,7 @@ ...@@ -26,7 +26,7 @@
;;; ;;;
(file-comment (file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/env.lisp,v 1.23 2003/05/17 19:02:37 gerd Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/env.lisp,v 1.24 2003/05/17 19:08:10 gerd Exp $")
;;; ;;;
;;; Basic environmental stuff. ;;; Basic environmental stuff.
;;; ;;;
...@@ -304,8 +304,6 @@ ...@@ -304,8 +304,6 @@
class)) class))
`(find-class ',name))) `(find-class ',name)))
(defgeneric make-load-form-saving-slots (object &key slot-names environment))
(defun make-load-form-saving-slots (object &key slot-names environment) (defun make-load-form-saving-slots (object &key slot-names environment)
(declare (ignore environment)) (declare (ignore environment))
(let ((class (class-of object))) (let ((class (class-of object)))
......
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