/[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.1 by pfdietz, Thu Sep 26 16:53:37 2002 UTC revision 1.2 by pfdietz, Fri Jan 31 02:13:02 2003 UTC
# Line 1  Line 1 
1  (in-package "COMMON-LISP-USER")  (in-package "COMMON-LISP-USER")
2    
3    
4  (eval-when (load eval compile)  (eval-when (load eval compile)
5      (intern "==>" "CL-USER")
6    (unless (fboundp 'compile-file-pathname)    (unless (fboundp 'compile-file-pathname)
7      (defun compile-file-pathname (pathname)      (defun compile-file-pathname (pathname)
8        (make-pathname :defaults pathname :type "o"))))        (make-pathname :defaults pathname :type "o"))))

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

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