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

Diff of /gcl/cmpnew/cmptop.lsp

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

revision 1.7 by camm, Wed Feb 26 22:21:35 2003 UTC revision 1.8 by mjthomas, Tue Jul 8 06:50:01 2003 UTC
# Line 357  Line 357 
357    (dolist** (situation (car args))    (dolist** (situation (car args))
358      (case situation      (case situation
359            (load (setq load-flag t))            (load (setq load-flag t))
360              (:load-toplevel (setq load-flag t))
361            (compile (setq compile-flag t))            (compile (setq compile-flag t))
362              (:compile-toplevel (setq compile-flag t))
363            (eval)            (eval)
364              (:execute)
365            (otherwise (cmperr "The EVAL-WHEN situation ~s is illegal."            (otherwise (cmperr "The EVAL-WHEN situation ~s is illegal."
366                               situation))))                               situation))))
367    (let ((*eval-when-defaults* (car args)))    (let ((*eval-when-defaults* (car args)))

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

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