Commit 8e7e5fee authored by wlott's avatar wlott
Browse files

Added make-load-form support.

parent cd93863e
......@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/package.lisp,v 1.12 1991/05/28 17:27:20 ram Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/package.lisp,v 1.13 1991/12/14 08:58:33 wlott Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -41,7 +41,11 @@
(multiple-value-bind (eu et) (external-symbol-count s)
(format stream
"#<The ~A package, ~D/~D internal, ~D/~D external>"
(package-%name s) iu it eu et))))))
(package-%name s) iu it eu et)))))
(:make-load-form-fun
(lambda (package)
(values `(package-or-lose ',(package-name package))
nil))))
"Standard structure for the description of a package. Consists of
a list of all hash tables, the name of the package, the nicknames of
the package, the use-list for the package, the used-by- list, hash-
......
......@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/rand.lisp,v 1.3 1991/02/08 13:35:04 ram Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/rand.lisp,v 1.4 1991/12/14 09:01:01 wlott Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -29,7 +29,9 @@
(defconstant %fixnum-length (integer-length most-positive-fixnum))
(defvar rand-seed 0)
(defstruct (random-state (:constructor make-random-object))
(defstruct (random-state
(:constructor make-random-object)
(:make-load-form-fun :just-dump-it-normally))
(j 24 :type integer)
(k 0 :type integer)
(seed (make-array (1+ random-max) :initial-contents
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment