/[gcl]/gcl/ansi-tests/compile-and-load.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/compile-and-load.lsp

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

revision 1.6 by pfdietz, Wed Jun 18 11:55:24 2003 UTC revision 1.7 by pfdietz, Tue Jul 1 02:08:54 2003 UTC
# Line 6  Line 6 
6    (when (eq excl:*current-case-mode* :case-sensitive-lower)    (when (eq excl:*current-case-mode* :case-sensitive-lower)
7      (push :lower-case *features*)))      (push :lower-case *features*)))
8    
9  (eval-when (load eval compile)  (eval-when #+gcl (load eval compile)
10               #-gcl (:load-toplevel :compile-toplevel :execute)
11    (intern "==>" "CL-USER")    (intern "==>" "CL-USER")
12    (unless (fboundp 'compile-file-pathname)    (unless (fboundp 'compile-file-pathname)
13      (defun compile-file-pathname (pathname)      (defun compile-file-pathname (pathname)

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

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