Commit a6d23b3d authored by Daniel Barlow's avatar Daniel Barlow
Browse files

Now works in Scieneer Common Lisp (patch thanks to Douglas Thomas Crosher)

parent 22b1a44c
Loading
Loading
Loading
Loading
+4 −4
Original line number Diff line number Diff line
;;; 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
+1 −1
Original line number Diff line number Diff line
(defpackage :test-package (:use "CL"))
(defpackage :test-package (:use :cl))
(in-package :test-package)
(defvar *file1* t)
+1 −1
Original line number Diff line number Diff line
(defpackage :test-package (:use "CL"))
(defpackage :test-package (:use :cl))
(in-package :test-package)
(defvar *file3* t)