/[cmucl]/src/pcl/fixup.lisp
ViewVC logotype

Diff of /src/pcl/fixup.lisp

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

revision 1.7 by pw, Thu Mar 11 16:51:06 1999 UTC revision 1.8 by gerd, Sat Mar 22 16:15:16 2003 UTC
# Line 23  Line 23 
23  ;;;  ;;;
24  ;;; Suggestions, comments and requests for improvements are also welcome.  ;;; Suggestions, comments and requests for improvements are also welcome.
25  ;;; *************************************************************************  ;;; *************************************************************************
 ;;;  
26    
27  (in-package :pcl)  (in-package :pcl)
28    
29  (fix-early-generic-functions)  #-loadable-pcl
30  (setq *boot-state* 'complete)  (progn
31      (/show "Fixing generic functions")
32      (fix-early-generic-functions)
33      (/show "PCL boot state COMPLETE")
34      (setq *boot-state* 'complete))
35    
36  (defun print-std-instance (instance stream depth)  (defun print-std-instance (instance stream depth)
37    (declare (ignore depth))    (declare (ignore depth))

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

  ViewVC Help
Powered by ViewVC 1.1.5