Jul 13, 2010, 3:48:32 PM (10 years ago)

Update to ASDF 2.004.

1 edited


  • trunk/source/tools/asdf.lisp

    r13888 r13959  
    7171(eval-when (:load-toplevel :compile-toplevel :execute)
    7272  (let* ((asdf-version ;; the 1+ helps the version bumping script discriminate
    73           (subseq "VERSION:2.003" (1+ (length "VERSION")))) ; NB: same as 2.105.
     73          (subseq "VERSION:2.004" (1+ (length "VERSION")))) ; NB: same as 2.111.
    7474         (existing-asdf (find-package :asdf))
    7575         (vername '#:*asdf-version*)
    728728#+sbcl (defun get-uid () (sb-unix:unix-getuid))
    729729#+cmu (defun get-uid () (unix:unix-getuid))
    730 #+ecl (ffi:clines "#include <sys/types.h>" "#include <unistd.h>")
    731 #+ecl (defun get-uid () (ffi:c-inline () () :int "getuid()" :one-liner t))
     730#+ecl #.(cl:and (cl:< ext:+ecl-version-number+ 100601)
     731         '(ffi:clines "#include <sys/types.h>" "#include <unistd.h>"))
     732#+ecl (defun get-uid ()
     733        #.(cl:if (cl:< ext:+ecl-version-number+ 100601)
     734            '(ffi:c-inline () () :int "getuid()" :one-liner t)
     735            '(ext::getuid)))
    732736#+allegro (defun get-uid () (excl.osi:getuid))
    733737#-(or cmu sbcl clisp allegro ecl)
    10731077(defun system-registered-p (name)
    10741078  (gethash (coerce-name name) *defined-systems*))
     1080(defun clear-system (name)
     1081  "Clear the entry for a system in the database of systems previously loaded.
     1082Note that this does NOT in any way cause the code of the system to be unloaded."
     1083  ;; There is no "unload" operation in Common Lisp, and a general such operation
     1084  ;; cannot be portably written, considering how much CL relies on side-effects
     1085  ;; of global data structures.
     1086  ;; Note that this does a setf gethash instead of a remhash
     1087  ;; this way there remains a hint in the *defined-systems* table
     1088  ;; that the system was loaded at some point.
     1089  (setf (gethash (coerce-name name) *defined-systems*) nil))
    10761091(defun map-systems (fn)
    23932408  '((:x86-64 :amd64 :x86_64 :x8664-target)
    23942409    (:x86 :i686 :i586 :pentium3 :i486 :i386 :pc386 :iapx386 :x8632-target :pentium4)
    2395     :hppa64 :hppa :ppc64 (:ppc32 :ppc :powerpc) :sparc64 :sparc))
     2410    :hppa64 :hppa :ppc64 (:ppc32 :ppc :powerpc) :sparc64 :sparc
     2411    :java-1.4 :java-1.5 :java-1.6 :java-1.7))
    23972414(defun lisp-version-string ()
    24102427                       (:+ics ""))
    24112428                      (if (member :64bit *features*) "-64bit" ""))
     2429    #+armedbear (format nil "~a-fasl~a" s system::*fasl-version*)
    24122430    #+clisp (subseq s 0 (position #\space s))
    24132431    #+clozure (format nil "~d.~d-fasl~d"
    24242442    #+lispworks (format nil "~A~@[~A~]" s
    24252443                        (when (member :lispworks-64bit *features*) "-64bit"))
    2426     ;; #+sbcl (format nil "~a-fasl~d" s sb-fasl:+fasl-file-version+) ; fasl-f-v is redundant
    2427     #+(or armedbear cormanlisp mcl sbcl scl) s
     2444    ;; #+sbcl (format nil "~a-fasl~d" s sb-fasl:+fasl-file-version+) ; f-f-v redundant w/ version
     2445    #+(or cormanlisp mcl sbcl scl) s
    24282446    #-(or allegro armedbear clisp clozure cmu cormanlisp digitool
    24292447          ecl gcl lispworks mcl sbcl scl) s))
    25092527           ;;; read-windows-registry HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Common AppData
    25102528        ,(try (getenv "ALLUSERSPROFILE") "Application Data/common-lisp/config/"))))
    2511     (list #p"/etc/"))))
     2529    (list #p"/etc/common-lisp/"))))
    25122530(defun in-first-directory (dirs x)
    25132531  (loop :for dir :in dirs
    29572975(defun delete-file-if-exists (x)
    2958   (when (probe-file x)
     2976  (when (and x (probe-file x))
    29592977    (delete-file x)))
    33533371  (setf (source-registry) (compute-source-registry parameter)))
    3355 ;; checks an initial variable to see whether the state is initialized
     3373;; Checks an initial variable to see whether the state is initialized
    33563374;; or cleared. In the former case, return current configuration; in
    33573375;; the latter, initialize.  ASDF will call this function at the start
    3358 ;; of (asdf:find-system).
    3359 (defun ensure-source-registry ()
     3376;; of (asdf:find-system) to make sure the source registry is initialized.
     3377;; However, it will do so *without* a parameter, at which point it
     3378;; will be too late to provide a parameter to this function, though
     3379;; you may override the configuration explicitly by calling
     3380;; initialize-source-registry directly with your parameter.
     3381(defun ensure-source-registry (&optional parameter)
    33603382  (if (source-registry-initialized-p)
    33613383      (source-registry)
    3362       (initialize-source-registry)))
     3384      (initialize-source-registry parameter)))
    33643386(defun sysdef-source-registry-search (system)
Note: See TracChangeset for help on using the changeset viewer.