Skip to content
Snippets Groups Projects
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
No related branches found
No related tags found
No related merge requests found
;;; 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, ;;; The canonical source for asdf is presently the cCLan CVS repository,
;;; at <URL:http://cvs.sourceforge.net/cgi-bin/viewcvs.cgi/cclan/asdf/> ;;; at <URL:http://cvs.sourceforge.net/cgi-bin/viewcvs.cgi/cclan/asdf/>
...@@ -86,7 +86,7 @@ ...@@ -86,7 +86,7 @@
(in-package #:asdf) (in-package #:asdf)
;;; parse the cvs revision into something that might be vaguely useful. ;;; 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)) (colon (position #\: v))
(dot (position #\. v))) (dot (position #\. v)))
(and v colon dot (and v colon dot
...@@ -329,7 +329,7 @@ and NIL NAME and TYPE components" ...@@ -329,7 +329,7 @@ and NIL NAME and TYPE components"
(or (not in-memory) (or (not in-memory)
(< (car in-memory) (file-write-date on-disk)))) (< (car in-memory) (file-write-date on-disk))))
(let ((*package* (make-package (gensym (package-name #.*package*)) (let ((*package* (make-package (gensym (package-name #.*package*))
:use '("CL" "ASDF")))) :use '(:cl :asdf))))
(format t ";;; Loading system definition from ~A into ~A~%" (format t ";;; Loading system definition from ~A into ~A~%"
on-disk *package*) on-disk *package*)
(load on-disk))) (load on-disk)))
...@@ -851,7 +851,7 @@ output to *trace-output*. Returns the shell's exit code." ...@@ -851,7 +851,7 @@ output to *trace-output*. Returns the shell's exit code."
(list "-c" command) (list "-c" command)
:input nil :output *trace-output*)))) :input nil :output *trace-output*))))
#+cmu #+(or cmu scl)
(defun run-shell-command (control-string &rest args) (defun run-shell-command (control-string &rest args)
"Interpolate ARGS into CONTROL-STRING as if by FORMAT, and "Interpolate ARGS into CONTROL-STRING as if by FORMAT, and
synchronously execute the result using a Bourne-compatible shell, with synchronously execute the result using a Bourne-compatible shell, with
......
(defpackage :test-package (:use "CL")) (defpackage :test-package (:use :cl))
(in-package :test-package) (in-package :test-package)
(defvar *file1* t) (defvar *file1* t)
(defpackage :test-package (:use "CL")) (defpackage :test-package (:use :cl))
(in-package :test-package) (in-package :test-package)
(defvar *file3* t) (defvar *file3* t)
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment