/[mcclim]/mcclim/describe.lisp
ViewVC logotype

Diff of /mcclim/describe.lisp

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

revision 1.7 by kevin, Mon Aug 18 08:45:16 2003 UTC revision 1.8 by moore, Wed Oct 1 21:35:27 2003 UTC
# Line 19  Line 19 
19    
20  (in-package :common-lisp)  (in-package :common-lisp)
21    
22  #+excl  (clim-internals::with-system-redefinition-allowed
 (eval-when (:compile-toplevel :load-toplevel :execute)  
   (setf (excl:package-definition-lock (find-package :common-lisp)) nil))  
   
 #+openmcl  
 (defmacro with-system-redefinition-allowed (&body body)  
   `(let ((ccl::*warn-if-redefine-kernel* nil))  
      ,@body))  
   
 #-openmcl  
 (defmacro with-system-redefinition-allowed (&body body)  
   `(progn  
      ,@body))  
   
 (with-system-redefinition-allowed  
23    (defun describe (thing &optional stream)    (defun describe (thing &optional stream)
24      (if (null stream)      (if (null stream)
25          (setq stream *standard-output*)          (setq stream *standard-output*)
# Line 49  Line 35 
35  ;;; (or EXTENDED-OUTPUT-STREAM OUTPUT-RECORDING-STREAM)  ;;; (or EXTENDED-OUTPUT-STREAM OUTPUT-RECORDING-STREAM)
36  ;;; but CLIM-STREAM-PANE is used instead.  ;;; but CLIM-STREAM-PANE is used instead.
37    
38  (with-system-redefinition-allowed  (clim-internals::with-system-redefinition-allowed
39    (defmethod describe-object ((thing t) stream)    (defmethod describe-object ((thing t) stream)
40      (let ((*print-array* nil))      (let ((*print-array* nil))
41        (clim:present thing (clim:presentation-type-of thing)        (clim:present thing (clim:presentation-type-of thing)
# Line 180  Line 166 
166                 (format stream "      ~v@A: <unbound>~%" width                 (format stream "      ~v@A: <unbound>~%" width
167                         (clim-mop:slot-definition-name slot)))))))                         (clim-mop:slot-definition-name slot)))))))
168    
 #+excl  
 (eval-when (:compile-toplevel :load-toplevel :execute)  
   (setf (excl:package-definition-lock (find-package :common-lisp)) t))  
169    

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

  ViewVC Help
Powered by ViewVC 1.1.5