/[cmucl]/src/code/extfmts.lisp
ViewVC logotype

Diff of /src/code/extfmts.lisp

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

revision 1.20 by rtoy, Sun Oct 18 14:21:23 2009 UTC revision 1.21 by rtoy, Mon Mar 8 20:43:20 2010 UTC
# Line 362  Line 362 
362        (and (consp name) (find-external-format name))        (and (consp name) (find-external-format name))
363        (and (let ((*package* (find-package "STREAM"))        (and (let ((*package* (find-package "STREAM"))
364                   (lisp::*enable-package-locked-errors* nil)                   (lisp::*enable-package-locked-errors* nil)
365                     ;; The standard readtable is what we want to use when
366                     ;; compiling the external format, in case the user
367                     ;; has changed *readtable* in some way.
368                     (*readtable* (copy-readtable nil))
369                   (s (open (format nil "ext-formats:~(~A~).lisp" name)                   (s (open (format nil "ext-formats:~(~A~).lisp" name)
370                            :if-does-not-exist nil :external-format :iso8859-1)))                            :if-does-not-exist nil :external-format :iso8859-1)))
371               (when s               (when s

Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21

  ViewVC Help
Powered by ViewVC 1.1.5