Parent Directory | Revision Log | 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")))) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |