/[cmucl]/src/code/purify.lisp
ViewVC logotype

Diff of /src/code/purify.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.11.1.1 by wlott, Mon Oct 7 23:59:19 1991 UTC revision 1.11.1.2 by wlott, Tue Oct 8 00:50:50 1991 UTC
# Line 22  Line 22 
22  (in-package 'lisp)  (in-package 'lisp)
23    
24  (defun purify (&key root-structures constants)  (defun purify (&key root-structures constants)
25    (declare (ignore root-structure constants))    (declare (ignore root-structures constants))
26    (let* ((generations (num-generations))    (let* ((generations (num-generations))
27           (thresholds (make-array generations)))           (thresholds (make-array generations)))
28      (do ((gen 1 (1+ gen)))      (do ((gen 1 (1+ gen)))

Legend:
Removed from v.1.11.1.1  
changed lines
  Added in v.1.11.1.2

  ViewVC Help
Powered by ViewVC 1.1.5