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

Diff of /src/pcl/env.lisp

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

revision 1.6 by ram, Mon Nov 9 15:19:18 1992 UTC revision 1.6.1.1 by ram, Mon Nov 9 15:41:18 1992 UTC
# Line 67  Line 67 
67      (values)))      (values)))
68    
69  (defmethod describe-object (object stream)  (defmethod describe-object (object stream)
70    (let ((*standard-output* stream))    #-cmu
71      (cond ((or #+kcl (packagep object))      (cond ((or #+kcl (packagep object))
72             (describe-package object stream))             (describe-package object stream))
73            (t            (t
74             (funcall (original-definition 'describe) object)))))             (funcall (original-definition 'describe) object)))
75      #+cmu
76      (describe object stream))
77    
78    #-cmu
79  (redefine-function 'describe 'pcl-describe)  (redefine-function 'describe 'pcl-describe)
80    
81  )  )
# Line 323  Line 326 
326  (pushnew :pcl *features*)  (pushnew :pcl *features*)
327  (pushnew :portable-commonloops *features*)  (pushnew :portable-commonloops *features*)
328  (pushnew :pcl-structures *features*)  (pushnew :pcl-structures *features*)
329    
330    #+cmu
331    (when (find-package "OLD-PCL")
332      (setf (symbol-function (find-symbol "PRINT-OBJECT" :old-pcl))
333            (symbol-function 'pcl::print-object)))
334    

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.6.1.1

  ViewVC Help
Powered by ViewVC 1.1.5