Loading .gitignore +1 −2 Original line number Diff line number Diff line Loading @@ -32,8 +32,7 @@ tmp/ *.cfsl *.fas *.lib *.o *.a *.[oahcisS] *.*fsl *.bak *.data Loading asdf-ecl.lisp +2 −2 Original line number Diff line number Diff line Loading @@ -5,14 +5,14 @@ ;;; License as published by the Free Software Foundation; either ;;; version 2 of the License, or (at your option) any later version. ;;; ;;; See file '../../Copyright' for full details. ;;; See file 'ecl/Copyright' for full details. ;;; ;;; ECL SPECIFIC OPERATIONS FOR ASDF ;;; #+xcvb (module (:depends-on ("asdf"))) (in-package :asdf) (require 'cmp) (require :cmp) ;;; ;;; COMPILE-OP / LOAD-OP Loading asdf.lisp +33 −32 Original line number Diff line number Diff line Loading @@ -49,28 +49,27 @@ (cl:in-package :cl-user) #|(declaim (optimize (speed 2) (debug 2) (safety 3)) #+sbcl (sb-ext:muffle-conditions sb-ext:compiler-note))|# ;; Implementation-dependent tweaks (eval-when (:compile-toplevel :load-toplevel :execute) ;; (declaim (optimize (speed 2) (debug 2) (safety 3)) ; NO: rely on the implementation defaults. #+allegro (setf excl::*autoload-package-name-alist* (remove "asdf" excl::*autoload-package-name-alist* :test 'equalp :key 'car)) #+ecl (require :cmp) #+gcl (eval-when (:compile-toplevel :load-toplevel) (defpackage :asdf-utilities (:use :cl)) (defpackage :asdf (:use :cl :asdf-utilities)))) ;;;; Create packages in a way that is compatible with hot-upgrade. ;;;; See https://bugs.launchpad.net/asdf/+bug/485687 ;;;; See more at the end of the file. #+gcl (eval-when (:compile-toplevel :load-toplevel) (defpackage :asdf-utilities (:use :cl)) (defpackage :asdf (:use :cl :asdf-utilities))) (eval-when (:load-toplevel :compile-toplevel :execute) #+allegro (setf excl::*autoload-package-name-alist* (remove "asdf" excl::*autoload-package-name-alist* :test 'equalp :key 'car)) (let* ((asdf-version ;; the 1+ helps the version bumping script discriminate (subseq "VERSION:2.100" (1+ (length "VERSION")))) (subseq "VERSION:2.101" (1+ (length "VERSION")))) (existing-asdf (find-package :asdf)) (vername '#:*asdf-version*) (versym (and existing-asdf Loading Loading @@ -158,10 +157,8 @@ `(ensure-package ',name :nicknames ',nicknames :use ',use :export ',export :shadow ',shadow :unintern ',(append #-(or gcl ecl) redefined-functions unintern) :fmakunbound ',(append #+(or gcl ecl) redefined-functions fmakunbound)))) :unintern ',(append #-(or gcl ecl) redefined-functions unintern) :fmakunbound ',(append fmakunbound)))) (pkgdcl :asdf-utilities :nicknames (#:asdf-extensions) Loading Loading @@ -367,16 +364,20 @@ Defaults to `t`.") ;;;; ------------------------------------------------------------------------- ;;;; ASDF Interface, in terms of generic functions. (defgeneric perform-with-restarts (operation component)) (defgeneric perform (operation component)) (defgeneric operation-done-p (operation component)) (defgeneric explain (operation component)) (defgeneric output-files (operation component)) (defgeneric input-files (operation component)) (defmacro defgeneric* (name formals &rest options) `(progn #+(or gcl ecl) (fmakunbound ',name) (defgeneric ,name ,formals ,@options))) (defgeneric* perform-with-restarts (operation component)) (defgeneric* perform (operation component)) (defgeneric* operation-done-p (operation component)) (defgeneric* explain (operation component)) (defgeneric* output-files (operation component)) (defgeneric* input-files (operation component)) (defgeneric component-operation-time (operation component)) (defgeneric system-source-file (system) (defgeneric* system-source-file (system) (:documentation "Return the source file in which system is defined.")) (defgeneric component-system (component) Loading @@ -398,7 +399,7 @@ another pathname in a degenerate way.")) (defgeneric version-satisfies (component version)) (defgeneric find-component (base path) (defgeneric* find-component (base path) (:documentation "Finds the component with PATH starting from BASE module; if BASE is nil, then the component is assumed to be a system.")) Loading Loading @@ -1938,7 +1939,7 @@ recursive calls to traverse.") ;;;; ------------------------------------------------------------------------- ;;;; Invoking Operations (defgeneric operate (operation-class system &key &allow-other-keys)) (defgeneric* operate (operation-class system &key &allow-other-keys)) (defmethod operate (operation-class system &rest args &key ((:verbose *asdf-verbose*) *asdf-verbose*) version force Loading Loading @@ -3393,7 +3394,7 @@ with a different configuration, so the configuration would be re-read then." ;;;; ----------------------------------------------------------------- ;;;; Done! (when *load-verbose* (asdf-message ";; ASDF, version ~a" (asdf-version))) (asdf-message ";; ASDF, version ~a~%" (asdf-version))) #+allegro (eval-when (:compile-toplevel :execute) Loading Loading
.gitignore +1 −2 Original line number Diff line number Diff line Loading @@ -32,8 +32,7 @@ tmp/ *.cfsl *.fas *.lib *.o *.a *.[oahcisS] *.*fsl *.bak *.data Loading
asdf-ecl.lisp +2 −2 Original line number Diff line number Diff line Loading @@ -5,14 +5,14 @@ ;;; License as published by the Free Software Foundation; either ;;; version 2 of the License, or (at your option) any later version. ;;; ;;; See file '../../Copyright' for full details. ;;; See file 'ecl/Copyright' for full details. ;;; ;;; ECL SPECIFIC OPERATIONS FOR ASDF ;;; #+xcvb (module (:depends-on ("asdf"))) (in-package :asdf) (require 'cmp) (require :cmp) ;;; ;;; COMPILE-OP / LOAD-OP Loading
asdf.lisp +33 −32 Original line number Diff line number Diff line Loading @@ -49,28 +49,27 @@ (cl:in-package :cl-user) #|(declaim (optimize (speed 2) (debug 2) (safety 3)) #+sbcl (sb-ext:muffle-conditions sb-ext:compiler-note))|# ;; Implementation-dependent tweaks (eval-when (:compile-toplevel :load-toplevel :execute) ;; (declaim (optimize (speed 2) (debug 2) (safety 3)) ; NO: rely on the implementation defaults. #+allegro (setf excl::*autoload-package-name-alist* (remove "asdf" excl::*autoload-package-name-alist* :test 'equalp :key 'car)) #+ecl (require :cmp) #+gcl (eval-when (:compile-toplevel :load-toplevel) (defpackage :asdf-utilities (:use :cl)) (defpackage :asdf (:use :cl :asdf-utilities)))) ;;;; Create packages in a way that is compatible with hot-upgrade. ;;;; See https://bugs.launchpad.net/asdf/+bug/485687 ;;;; See more at the end of the file. #+gcl (eval-when (:compile-toplevel :load-toplevel) (defpackage :asdf-utilities (:use :cl)) (defpackage :asdf (:use :cl :asdf-utilities))) (eval-when (:load-toplevel :compile-toplevel :execute) #+allegro (setf excl::*autoload-package-name-alist* (remove "asdf" excl::*autoload-package-name-alist* :test 'equalp :key 'car)) (let* ((asdf-version ;; the 1+ helps the version bumping script discriminate (subseq "VERSION:2.100" (1+ (length "VERSION")))) (subseq "VERSION:2.101" (1+ (length "VERSION")))) (existing-asdf (find-package :asdf)) (vername '#:*asdf-version*) (versym (and existing-asdf Loading Loading @@ -158,10 +157,8 @@ `(ensure-package ',name :nicknames ',nicknames :use ',use :export ',export :shadow ',shadow :unintern ',(append #-(or gcl ecl) redefined-functions unintern) :fmakunbound ',(append #+(or gcl ecl) redefined-functions fmakunbound)))) :unintern ',(append #-(or gcl ecl) redefined-functions unintern) :fmakunbound ',(append fmakunbound)))) (pkgdcl :asdf-utilities :nicknames (#:asdf-extensions) Loading Loading @@ -367,16 +364,20 @@ Defaults to `t`.") ;;;; ------------------------------------------------------------------------- ;;;; ASDF Interface, in terms of generic functions. (defgeneric perform-with-restarts (operation component)) (defgeneric perform (operation component)) (defgeneric operation-done-p (operation component)) (defgeneric explain (operation component)) (defgeneric output-files (operation component)) (defgeneric input-files (operation component)) (defmacro defgeneric* (name formals &rest options) `(progn #+(or gcl ecl) (fmakunbound ',name) (defgeneric ,name ,formals ,@options))) (defgeneric* perform-with-restarts (operation component)) (defgeneric* perform (operation component)) (defgeneric* operation-done-p (operation component)) (defgeneric* explain (operation component)) (defgeneric* output-files (operation component)) (defgeneric* input-files (operation component)) (defgeneric component-operation-time (operation component)) (defgeneric system-source-file (system) (defgeneric* system-source-file (system) (:documentation "Return the source file in which system is defined.")) (defgeneric component-system (component) Loading @@ -398,7 +399,7 @@ another pathname in a degenerate way.")) (defgeneric version-satisfies (component version)) (defgeneric find-component (base path) (defgeneric* find-component (base path) (:documentation "Finds the component with PATH starting from BASE module; if BASE is nil, then the component is assumed to be a system.")) Loading Loading @@ -1938,7 +1939,7 @@ recursive calls to traverse.") ;;;; ------------------------------------------------------------------------- ;;;; Invoking Operations (defgeneric operate (operation-class system &key &allow-other-keys)) (defgeneric* operate (operation-class system &key &allow-other-keys)) (defmethod operate (operation-class system &rest args &key ((:verbose *asdf-verbose*) *asdf-verbose*) version force Loading Loading @@ -3393,7 +3394,7 @@ with a different configuration, so the configuration would be re-read then." ;;;; ----------------------------------------------------------------- ;;;; Done! (when *load-verbose* (asdf-message ";; ASDF, version ~a" (asdf-version))) (asdf-message ";; ASDF, version ~a~%" (asdf-version))) #+allegro (eval-when (:compile-toplevel :execute) Loading