diff --git a/asdf.lisp b/asdf.lisp index 3057fcc76953345eb4feb1e762e1ec1075550eae..34d9c1a7d49cb8742c7ed070024030cfa38c1747 100644 --- a/asdf.lisp +++ b/asdf.lisp @@ -1,4 +1,4 @@ -;;; This is asdf: Another System Definition Facility. $Revision: 1.37 $ +;;; This is asdf: Another System Definition Facility. $Revision: 1.38 $ ;;; ;;; The canonical source for asdf is presently the cCLan CVS repository, ;;; at <URL:http://cvs.sourceforge.net/cgi-bin/viewcvs.cgi/cclan/asdf/> @@ -86,7 +86,7 @@ (in-package #:asdf) ;;; parse the cvs revision into something that might be vaguely useful. -(defvar *asdf-revision* (let* ((v "$Revision: 1.37 $") +(defvar *asdf-revision* (let* ((v "$Revision: 1.38 $") (colon (position #\: v)) (dot (position #\. v))) (and v colon dot @@ -329,7 +329,7 @@ and NIL NAME and TYPE components" (or (not in-memory) (< (car in-memory) (file-write-date on-disk)))) (let ((*package* (make-package (gensym (package-name #.*package*)) - :use '("CL" "ASDF")))) + :use '(:cl :asdf)))) (format t ";;; Loading system definition from ~A into ~A~%" on-disk *package*) (load on-disk))) @@ -851,7 +851,7 @@ output to *trace-output*. Returns the shell's exit code." (list "-c" command) :input nil :output *trace-output*)))) -#+cmu +#+(or cmu scl) (defun run-shell-command (control-string &rest args) "Interpolate ARGS into CONTROL-STRING as if by FORMAT, and synchronously execute the result using a Bourne-compatible shell, with diff --git a/test/file1.lisp b/test/file1.lisp index 98b6cf45958f7e804cba27e174c3667bf3ce2d1e..3612a2bac5c73f94f6ba05a742e5d1f0ec9c8716 100644 --- a/test/file1.lisp +++ b/test/file1.lisp @@ -1,4 +1,4 @@ -(defpackage :test-package (:use "CL")) +(defpackage :test-package (:use :cl)) (in-package :test-package) (defvar *file1* t) diff --git a/test/file3.lisp b/test/file3.lisp index 7f2f130eae7c736457a282580e81c066e0bfada0..0ed2df7bc46b88e31b309f4ab829f26d2d6a74a6 100644 --- a/test/file3.lisp +++ b/test/file3.lisp @@ -1,4 +1,4 @@ -(defpackage :test-package (:use "CL")) +(defpackage :test-package (:use :cl)) (in-package :test-package) (defvar *file3* t)