/[gcl]/gcl/cmpnew/gcl_cmpmain.lsp
ViewVC logotype

Diff of /gcl/cmpnew/gcl_cmpmain.lsp

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

revision 1.18 by camm, Fri Nov 19 21:38:44 2004 UTC revision 1.19 by camm, Mon Nov 22 15:00:25 2004 UTC
# Line 446  Cannot compile ~a.~%" Line 446  Cannot compile ~a.~%"
446          ((and (setq tem (symbol-function name))          ((and (setq tem (symbol-function name))
447                (consp tem))                (consp tem))
448           (let ((na (if (symbol-package name) name 'cmp-anon))           (let ((na (if (symbol-package name) name 'cmp-anon))
449                 (tem (wrap-literals tem)))                 (tem (if *keep-gaz* tem (wrap-literals tem))))
450             (unless (and (fboundp 'si::init-cmp-anon) (or (si::init-cmp-anon) (fmakunbound 'si::init-cmp-anon)))             (unless (and (fboundp 'si::init-cmp-anon) (or (si::init-cmp-anon) (fmakunbound 'si::init-cmp-anon)))
451               (with-open-file               (with-open-file
452                (st (setq gaz (gazonk-name)) :direction :output)                (st (setq gaz (gazonk-name)) :direction :output)

Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26