← Back to branch summary

~ubuntu-branches/ubuntu/karmic/cl-asdf/karmic

« back to all changes in this revision

Viewing changes to asdf.lisp

  • Committer: Bazaar Package Importer
  • Author(s): Kevin M. Rosenberg
  • Date: 2004-08-04 21:19:16 UTC
  • mfrom: (1.1.1 upstream)
  • Revision ID: james.westby@ubuntu.com-20040804211916-u2q5x5zw1dco13yg
Tags: 1.86-1
New upstream

Show diffs side-by-side

added added

removed removed

Lines of Context:
asdf.lisp
1
 
;;; This is asdf: Another System Definition Facility.  $Revision: 1.84 $
 
1
;;; This is asdf: Another System Definition Facility.  $Revision: 1.86 $
2
2
;;;
3
3
;;; Feedback, bug reports, and patches are all welcome: please mail to
4
4
;;; <cclan-list@lists.sf.net>.  But note first that the canonical
90
90
           #:*asdf-revision*
91
91
           
92
92
           #:operation-error #:compile-failed #:compile-warned #:compile-error
 
93
           #:error-component #:error-operation
93
94
           #:system-definition-error 
94
95
           #:missing-component
95
96
           #:missing-dependency
107
108
 
108
109
(in-package #:asdf)
109
110
 
110
 
(defvar *asdf-revision* (let* ((v "$Revision: 1.84 $")
 
111
(defvar *asdf-revision* (let* ((v "$Revision: 1.86 $")
111
112
                               (colon (or (position #\: v) -1))
112
113
                               (dot (position #\. v)))
113
114
                          (and v colon dot 
362
363
    (when (and on-disk
363
364
               (or (not in-memory)
364
365
                   (< (car in-memory) (file-write-date on-disk))))
365
 
      (let ((*package* (make-package (gensym (package-name #.*package*))
 
366
      (let ((*package* (make-package (gensym #.(package-name *package*))
366
367
                                     :use '(:cl :asdf))))
367
368
        (format *verbose-out*
368
369
                "~&~@<; ~@;loading system definition from ~A into ~A~@:>~%"
873
874
  
874
875
 
875
876
(defun class-for-type (parent type)
876
 
  (let ((class (find-class
877
 
                (or (find-symbol (symbol-name type) *package*)
878
 
                    (find-symbol (symbol-name type) #.*package*)) nil)))
 
877
  (let ((class 
 
878
         (find-class
 
879
          (or (find-symbol (symbol-name type) *package*)
 
880
              (find-symbol (symbol-name type) #.(package-name *package*)))
 
881
          nil)))
879
882
    (or class
880
883
        (and (eq type :file)
881
884
             (or (module-default-component-class parent)
1047
1050
                (ccl:run-program "/bin/sh" (list "-c" command)
1048
1051
                                 :input nil :output *verbose-out*
1049
1052
                                 :wait t)))
1050
 
 
1051
 
    #-(or openmcl clisp lispworks allegro scl cmu sbcl)
 
1053
    #+ecl ;; courtesy of Juan Jose Garcia Ripoll
 
1054
    (si:system command)
 
1055
    #-(or openmcl clisp lispworks allegro scl cmu sbcl ecl)
1052
1056
    (error "RUN-SHELL-PROGRAM not implemented for this Lisp")
1053
1057
    ))
1054
1058