/[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.6.2.1 by pw, Tue May 23 16:38:53 2000 UTC revision 1.12 by rtoy, Fri Mar 19 15:19:03 2010 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    (intl:textdomain "cmucl")
29    
30    #-loadable-pcl
31    (progn
32      (/show "Fixing generic functions")
33      (fix-early-generic-functions)
34      (/show "PCL boot state COMPLETE")
35      (setq *boot-state* 'complete))
36    
37  (fix-early-generic-functions)  (/show "Computing standard slot locations")
38  (setq *boot-state* 'complete)  (compute-standard-slot-locations)
39    
40  (defun print-std-instance (instance stream depth)  (defun print-std-instance (instance stream depth)
41    (declare (ignore depth))    (declare (ignore depth))
42    (print-object instance stream))    (print-object instance stream))
43    
44    (defmethod print-object ((ctor ctor) stream)
45      (print-unreadable-object (ctor stream :type t :identity t)
46        (format stream "~s ~s ~s"
47                (ctor-class-name ctor)
48                (ctor-initargs ctor)
49                (ctor-state ctor))))
50    
51    (/show "Converting condition accessors")
52    (when (fboundp 'conditions::make-early-condition-accessors-generic)
53      (let ((*compile-print* nil))
54        (conditions::make-early-condition-accessors-generic)))

Legend:
Removed from v.1.6.2.1  
changed lines
  Added in v.1.12

  ViewVC Help
Powered by ViewVC 1.1.5