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

Diff of /mcclim/package.lisp

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

revision 1.43 by hefner1, Mon Nov 15 04:47:41 2004 UTC revision 1.44 by gilbert, Sat Nov 20 22:15:30 2004 UTC
# Line 256  Line 256 
256                                       ;;                                       ;;
257                                       (format t "~&;; ~S is patched." sym)                                       (format t "~&;; ~S is patched." sym)
258                                       (finish-output)                                       (finish-output)
259                                       (push-import-from nam                                       (push-import-from nam :clim-lisp-patch))
                                                        :clim-lisp-patch))  
260                                      (t                                      (t
261                                       (setf sym (car sym))                                       (setf sym (car sym))
262                                       ;; clisp has no (:import ..) arg!                                       ;; clisp has no (:import ..) arg!
# Line 265  Line 264 
264                                        (symbol-name sym)                                        (symbol-name sym)
265                                        (package-name (symbol-package sym))))))))                                        (package-name (symbol-package sym))))))))
266                              res)))                              res)))
267                                      ;;
268                     ;; Don't redefine a perfectly working CL:DESCRIBE,
269                     ;; which more often than not has special knowledge
270                     ;; about objects you can't possibly gain though some
271                     ;; portable implementation.
272                     ;; --GB 2004-11-20
273                     (setf all-ansi-symbols (remove '#:describe all-ansi-symbols :test #'string-equal))
274                     (setf all-ansi-symbols (remove '#:describe-object all-ansi-symbols :test #'string-equal))
275                     ;;
276                   (setf export-ansi (grok all-ansi-symbols packages))                   (setf export-ansi (grok all-ansi-symbols packages))
277                   (setf export-gray (grok gray-symbols gray-packages))                   (setf export-gray (grok gray-symbols gray-packages))
278                   `(progn                   `(progn
# Line 273  Line 281 
281                                   (destructuring-bind (package . syms) spec                                   (destructuring-bind (package . syms) spec
282                                     `(:import-from ,package ,@syms)))                                     `(:import-from ,package ,@syms)))
283                                 imports)                                 imports)
284                         (:shadow #:describe #:describe-object)
285                         (:export #:describe #:describe-object)
286                       (:export                       (:export
287                        ,@(mapcar #'symbol-name export-ansi)                        ,@(mapcar #'symbol-name export-ansi)
288                        ,@(mapcar #'symbol-name export-gray) )) ))))                        ,@(mapcar #'symbol-name export-gray) )) ))))
# Line 286  Line 296 
296     #:boolean     #:boolean
297     #:character     #:character
298     #:close     #:close
299     #:complex     #:complex
    #:describe  
    #:describe-object  
300     #:float     #:float
301     #:fundamental-binary-input-stream     #:fundamental-binary-input-stream
302     #:fundamental-binary-output-stream     #:fundamental-binary-output-stream

Legend:
Removed from v.1.43  
changed lines
  Added in v.1.44

  ViewVC Help
Powered by ViewVC 1.1.5