Changeset 14714 for trunk/abcl/src/org/armedbear/lisp/asdf.lisp
- Timestamp:
- 07/18/14 17:03:20 (9 years ago)
- File:
-
- 1 edited
-
trunk/abcl/src/org/armedbear/lisp/asdf.lisp (modified) (38 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/asdf.lisp
r14713 r14714 1 1 ;;; -*- mode: Common-Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp ; buffer-read-only: t; -*- 2 ;;; This is ASDF 3.1.2. 2: Another System Definition Facility.2 ;;; This is ASDF 3.1.2.9: Another System Definition Facility. 3 3 ;;; 4 4 ;;; Feedback, bug reports, and patches are all welcome: … … 403 403 (t (push name intern))))))) 404 404 (labels ((sort-names (names) 405 (sort names#'string<))405 (sort (copy-list names) #'string<)) 406 406 (table-keys (table) 407 407 (loop :for k :being :the :hash-keys :of table :collect k)) … … 846 846 (uiop/package:define-package :uiop/common-lisp 847 847 (:nicknames :uoip/cl :asdf/common-lisp :asdf/cl) 848 (:use #-genera :common-lisp #+genera :future-common-lisp:uiop/package)849 (: reexport :common-lisp)848 (:use :uiop/package) 849 (:use-reexport #-genera :common-lisp #+genera :future-common-lisp) 850 850 (:recycle :uiop/common-lisp :uoip/cl :asdf/common-lisp :asdf/cl :asdf) 851 851 #+allegro (:intern #:*acl-warn-save*) … … 856 856 #:make-broadcast-stream #:file-namestring) 857 857 #+genera (:shadowing-import-from :scl #:boolean) 858 #+genera (:export #:boolean #:ensure-directories-exist )858 #+genera (:export #:boolean #:ensure-directories-exist #:read-sequence #:write-sequence) 859 859 #+mcl (:shadow #:user-homedir-pathname)) 860 860 (in-package :uiop/common-lisp) … … 936 936 #+genera 937 937 (eval-when (:load-toplevel :compile-toplevel :execute) 938 (unless (fboundp 'lambda) 939 (defmacro lambda (&whole form &rest bvl-decls-and-body) 940 (declare (ignore bvl-decls-and-body)(zwei::indentation 1 1)) 941 `#',(cons 'lisp::lambda (cdr form)))) 938 942 (unless (fboundp 'ensure-directories-exist) 939 943 (defun ensure-directories-exist (path) 940 (fs:create-directories-recursively (pathname path))))) 944 (fs:create-directories-recursively (pathname path)))) 945 (unless (fboundp 'read-sequence) 946 (defun read-sequence (sequence stream &key (start 0) end) 947 (scl:send stream :string-in nil sequence start end))) 948 (unless (fboundp 'write-sequence) 949 (defun write-sequence (sequence stream &key (start 0) end) 950 (scl:send stream :string-out sequence start end) 951 sequence))) 941 952 942 953 #.(or #+mcl ;; the #$ doesn't work on other lisps, even protected by #+mcl, so we use this trick … … 1214 1225 ;;; Characters 1215 1226 (with-upgradability () ;; base-char != character on ECL, LW, SBCL, Genera. LW also has SIMPLE-CHAR. 1216 (defconstant +non-base-chars-exist-p+ (not (subtypep 'character 'base-char)))1227 (defconstant +non-base-chars-exist-p+ #.(not (subtypep 'character 'base-char))) 1217 1228 #-scl ;; In SCL, all characters seem to be 16-bit base-char, but this flag gets set somehow??? 1218 1229 (when +non-base-chars-exist-p+ (pushnew :non-base-chars-exist-p *features*))) … … 1391 1402 (function fun) 1392 1403 ((or boolean keyword character number pathname) (constantly fun)) 1393 (hash-table (lambda (x) (gethash x fun)))1404 (hash-table #'(lambda (x) (gethash x fun))) 1394 1405 (symbol (fdefinition fun)) 1395 1406 (cons (if (eq 'lambda (car fun)) … … 1751 1762 "The operating system of the current host" 1752 1763 (first-feature 1753 '(:cygwin (:win :windows :mswindows :win32 :mingw32) ;; try cygwin first! 1764 '(:cygwin 1765 (:win :windows :mswindows :win32 :mingw32) ;; try cygwin first! 1754 1766 (:linux :linux :linux-target) ;; for GCL at least, must appear before :bsd 1755 1767 (:macosx :macosx :darwin :darwin-target :apple) ; also before :bsd 1756 (:solaris :solaris :sunos) (:bsd :bsd :freebsd :netbsd :openbsd) :unix 1768 (:solaris :solaris :sunos) 1769 (:bsd :bsd :freebsd :netbsd :openbsd :dragonfly) 1770 :unix 1757 1771 :genera))) 1758 1772 … … 2553 2567 when used with MERGE-PATHNAMES* with defaults BASE-PATHNAME, returns MAYBE-SUBPATH." 2554 2568 (let ((sub (when maybe-subpath (pathname maybe-subpath))) 2555 2569 (base (when base-pathname (ensure-absolute-pathname (pathname base-pathname))))) 2556 2570 (or (and base (subpathp sub base)) sub))) 2557 2571 … … 3298 3312 #+cormanlisp (win32:delete-directory directory-pathname) 3299 3313 #+ecl (si:rmdir directory-pathname) 3314 #+genera (fs:delete-directory directory-pathname) 3300 3315 #+lispworks (lw:delete-directory directory-pathname) 3301 3316 #+mkcl (mkcl:rmdir directory-pathname) … … 3304 3319 `(progn (require :sb-posix) (symbol-call :sb-posix :rmdir directory-pathname))) 3305 3320 #+xcl (symbol-call :uiop :run-program `("rmdir" ,(native-namestring directory-pathname))) 3306 #-(or abcl allegro clisp clozure cmu cormanlisp digitool ecl gcl lispworks mkcl sbcl scl xcl)3321 #-(or abcl allegro clisp clozure cmu cormanlisp digitool ecl gcl genera lispworks mkcl sbcl scl xcl) 3307 3322 (error "~S not implemented on ~S" 'delete-empty-directory (implementation-type))) ; genera 3308 3323 … … 3338 3353 'delete-filesystem-tree directory-pathname)) 3339 3354 (:ignore nil))) 3340 #-(or allegro cmu clozure sbcl scl)3355 #-(or allegro cmu clozure genera sbcl scl) 3341 3356 ((os-unix-p) ;; On Unix, don't recursively walk the directory and delete everything in Lisp, 3342 3357 ;; except on implementations where we can prevent DIRECTORY from following symlinks; … … 3348 3363 directory-pathname :if-does-not-exist if-does-not-exist) 3349 3364 #+clozure (ccl:delete-directory directory-pathname) 3350 #+genera ( error "~S not implemented on ~S" 'delete-directory-tree (implementation-type))3365 #+genera (fs:delete-directory directory-pathname :confirm nil) 3351 3366 #+sbcl #.(if-let (dd (find-symbol* :delete-directory :sb-ext nil)) 3352 3367 `(,dd directory-pathname :recursive t) ;; requires SBCL 1.0.44 or later … … 3996 4011 (afterf (gensym "AFTER"))) 3997 4012 `(flet (,@(when before 3998 `((,beforef (,@(when streamp `(,stream)) ,@(when pathnamep `(,pathname))) ,@before))) 4013 `((,beforef (,@(when streamp `(,stream)) ,@(when pathnamep `(,pathname))) 4014 ,@(when after `((declare (ignorable ,pathname)))) 4015 ,@before))) 3999 4016 ,@(when after 4000 4017 (assert pathnamep) … … 4121 4138 #+ecl (si:quit code) 4122 4139 #+gcl (system:quit code) 4123 #+genera (error " You probably don't want to Halt the Machine. (code: ~S)"code)4140 #+genera (error "~S: You probably don't want to Halt Genera. (code: ~S)" 'quit code) 4124 4141 #+lispworks (lispworks:quit :status code :confirm nil :return nil :ignore-errors-p t) 4125 4142 #+mcl (progn code (ccl:quit)) ;; or should we use FFI to call libc's exit(3) ? … … 4145 4162 #+abcl 4146 4163 (loop :for i :from 0 4147 4148 4164 :for frame :in (sys:backtrace (or count most-positive-fixnum)) :do 4165 (safe-format! stream "~&~D: ~A~%" i frame)) 4149 4166 #+allegro 4150 4167 (let ((*terminal-io* stream) … … 4170 4187 #+(or ecl mkcl) 4171 4188 (let* ((top (si:ihs-top)) 4172 4173 4189 (repeats (if count (min top count) top)) 4190 (backtrace (loop :for ihs :from 0 :below top 4174 4191 :collect (list (si::ihs-fun ihs) 4175 4192 (si::ihs-env ihs))))) 4176 4193 (loop :for i :from 0 :below repeats 4177 4178 4194 :for frame :in (nreverse backtrace) :do 4195 (safe-format! stream "~&~D: ~S~%" i frame))) 4179 4196 #+gcl 4180 4197 (let ((*debug-io* stream)) 4181 4198 (ignore-errors 4182 4199 (with-safe-io-syntax () 4183 4184 4185 4200 (if condition 4201 (conditions::condition-backtrace condition) 4202 (system::simple-backtrace))))) 4186 4203 #+lispworks 4187 4204 (let ((dbg::*debugger-stack* … … 4197 4214 #+xcl 4198 4215 (loop :for i :from 0 :below (or count most-positive-fixnum) 4199 4200 4216 :for frame :in (extensions:backtrace-as-list) :do 4217 (safe-format! stream "~&~D: ~S~%" i frame))) 4201 4218 4202 4219 (defun print-backtrace (&rest keys &key stream count condition) … … 4298 4315 #-(or sbcl allegro) 4299 4316 (unless (eq *image-dumped-p* :executable) 4300 4301 4302 4303 4304 4305 4306 4307 4317 ;; LispWorks command-line processing isn't transparent to the user 4318 ;; unless you create a standalone executable; in that case, 4319 ;; we rely on cl-launch or some other script to set the arguments for us. 4320 #+lispworks (return *command-line-arguments*) 4321 ;; On other implementations, on non-standalone executables, 4322 ;; we trust cl-launch or whichever script starts the program 4323 ;; to use -- as a delimiter between implementation arguments and user arguments. 4324 #-lispworks (setf arguments (member "--" arguments :test 'string-equal))) 4308 4325 (rest arguments))) 4309 4326 … … 4340 4357 Then, comes the restore process itself: 4341 4358 First, call each function in the RESTORE-HOOK, 4342 in the order they were registered with REGISTER- RESTORE-HOOK.4359 in the order they were registered with REGISTER-IMAGE-RESTORE-HOOK. 4343 4360 Second, evaluate the prelude, which is often Lisp text that is read, 4344 4361 as per EVAL-INPUT. … … 4385 4402 #+clozure prepend-symbols #+clozure (purify t) 4386 4403 #+sbcl compression 4387 #+(and sbcl windows) application-type)4404 #+(and sbcl os-windows) application-type) 4388 4405 "Dump an image of the current Lisp environment at pathname FILENAME, with various options. 4389 4406 … … 4459 4476 ;;--- only save runtime-options for standalone executables 4460 4477 (when executable (list :toplevel #'restore-image :save-runtime-options t)) 4461 #+(and sbcl windows) ;; passing :application-type :gui will disable the console window.4478 #+(and sbcl os-windows) ;; passing :application-type :gui will disable the console window. 4462 4479 ;; the default is :console - only works with SBCL 1.1.15 or later. 4463 4480 (when application-type (list :application-type application-type))))) … … 5296 5313 (%wait-process-result 5297 5314 (apply '%run-program (%normalize-system-command command) :wait t keys)) 5298 #+(or abcl cormanlisp clisp ecl gcl (and lispworks os-windows) mkcl xcl)5315 #+(or abcl cormanlisp clisp ecl gcl genera (and lispworks os-windows) mkcl xcl) 5299 5316 (let ((%command (%redirected-system-command command input output error-output directory))) 5300 5317 #+(and lispworks os-windows) … … 5313 5330 (ext:system %command)) 5314 5331 #+gcl (system:system %command) 5332 #+genera (error "~S not supported on Genera, cannot run ~S" 5333 '%system %command) 5315 5334 #+mcl (ccl::with-cstrs ((%%command %command)) (_system %%command)) 5316 5335 #+mkcl (mkcl:system %command) … … 6343 6362 be applied to the results to yield a configuration form. Current 6344 6363 values of TAG include :source-registry and :output-translations." 6345 (let ((files (sort (ignore-errors 6364 (let ((files (sort (ignore-errors ;; SORT w/o COPY-LIST is OK: DIRECTORY returns a fresh list 6346 6365 (remove-if 6347 6366 'hidden-pathname-p … … 6640 6659 ;; "3.4.5.0.8" would be your eighth local modification of official release 3.4.5 6641 6660 ;; "3.4.5.67.8" would be your eighth local modification of development version 3.4.5.67 6642 (asdf-version "3.1.2. 2")6661 (asdf-version "3.1.2.9") 6643 6662 (existing-version (asdf-version))) 6644 6663 (setf *asdf-version* asdf-version) … … 6652 6671 (when-upgrading () 6653 6672 (let ((redefined-functions ;; gf signature and/or semantics changed incompatibly. Oops. 6654 6655 6673 ;; NB: it's too late to do anything about functions in UIOP! 6674 ;; If you introduce some critically incompatibility there, you must change name. 6656 6675 '(#:component-relative-pathname #:component-parent-pathname ;; component 6657 6676 #:source-file-type 6658 6677 #:find-system #:system-source-file #:system-relative-pathname ;; system 6659 6660 6661 6662 6678 #:find-component ;; find-component 6679 #:explain #:perform #:perform-with-restarts #:input-files #:output-files ;; action 6680 #:component-depends-on #:operation-done-p #:component-depends-on 6681 #:traverse ;; backward-interface 6663 6682 #:map-direct-dependencies #:reduce-direct-dependencies #:direct-dependencies ;; plan 6664 6665 6666 6667 6668 6669 6670 6671 6683 #:operate ;; operate 6684 #:parse-component-form ;; defsystem 6685 #:apply-output-translations ;; output-translations 6686 #:process-output-translations-directive 6687 #:inherit-source-registry #:process-source-registry ;; source-registry 6688 #:process-source-registry-directive 6689 #:trivial-system-p)) ;; bundle 6690 (redefined-classes 6672 6691 ;; redefining the classes causes interim circularities 6673 6692 ;; with the old ASDF during upgrade, and many implementations bork 6674 6693 '((#:compile-concatenated-source-op (#:operation) ())))) 6675 6694 (loop :for name :in redefined-functions … … 6679 6698 #-clisp (fmakunbound sym))) 6680 6699 (labels ((asym (x) (multiple-value-bind (s p) (if (consp x) (values (car x) (cadr x)) (values x :asdf)) 6681 6682 6700 (find-symbol* s p nil))) 6701 (asyms (l) (mapcar #'asym l))) 6683 6702 (loop* :for (name superclasses slots) :in redefined-classes 6684 6685 6686 6703 :for sym = (find-symbol* name :asdf nil) 6704 :when (and sym (find-class sym)) 6705 :do (eval `(defclass ,sym ,(asyms superclasses) ,(asyms slots))))))) 6687 6706 6688 6707 … … 7145 7164 (:export #:get-file-stamp #:compute-file-stamp #:register-file-stamp 7146 7165 #:set-asdf-cache-entry #:unset-asdf-cache-entry #:consult-asdf-cache 7147 #:do-asdf-cache #:normalize-namestring 7148 #:call-with-asdf-cache #:with-asdf-cache #:*asdf-cache*)) 7166 #:do-asdf-cache #:normalize-namestring 7167 #:call-with-asdf-cache #:with-asdf-cache #:*asdf-cache* 7168 #:clear-configuration-and-retry #:retry)) 7149 7169 (in-package :asdf/cache) 7150 7170 … … 7182 7202 (if (and *asdf-cache* (not override)) 7183 7203 (funcall fun) 7184 (let ((*asdf-cache* (make-hash-table :test 'equal))) 7185 (funcall fun))))) 7204 (loop 7205 (restart-case 7206 (let ((*asdf-cache* (make-hash-table :test 'equal))) 7207 (return (funcall fun))) 7208 (retry () 7209 :report (lambda (s) 7210 (format s (compatfmt "~@<Retry ASDF operation.~@:>")))) 7211 (clear-configuration-and-retry () 7212 :report (lambda (s) 7213 (format s (compatfmt "~@<Retry ASDF operation after resetting the configuration.~@:>"))) 7214 (clear-configuration))))))) 7186 7215 7187 7216 (defmacro with-asdf-cache ((&key key override) &body body) … … 7310 7339 ;; Invalidate all systems but ASDF itself, if registered. 7311 7340 (loop :for name :being :the :hash-keys :of *defined-systems* 7312 7313 7341 :unless (equal name "asdf") 7342 :do (clear-defined-system name))) 7314 7343 7315 7344 (register-hook-function '*post-upgrade-cleanup-hook* 'clear-defined-systems nil) … … 7564 7593 FOUNDP is true when a system was found, 7565 7594 either a new unregistered one or a previously registered one. 7566 FOUND-SYSTEM when not null is a SYSTEM object that may be REGISTER-SYSTEM'ed as is7567 PATHNAME when not null is a path from wh ereto load the system,7595 FOUND-SYSTEM when not null is a SYSTEM object that may be REGISTER-SYSTEM'ed. 7596 PATHNAME when not null is a path from which to load the system, 7568 7597 either associated with FOUND-SYSTEM, or with the PREVIOUS system. 7569 7598 PREVIOUS when not null is a previously loaded SYSTEM object of same name. 7570 7599 PREVIOUS-TIME when not null is the time at which the PREVIOUS system was loaded." 7571 (with-asdf-cache (:key `(locate-system ,name)) 7572 (let* ((name (coerce-name name)) 7573 (in-memory (system-registered-p name)) ; load from disk if absent or newer on disk 7574 (previous (cdr in-memory)) 7575 (previous (and (typep previous 'system) previous)) 7576 (previous-time (car in-memory)) 7577 (found (search-for-system-definition name)) 7578 (found-system (and (typep found 'system) found)) 7579 (pathname (ensure-pathname 7580 (or (and (typep found '(or pathname string)) (pathname found)) 7581 (and found-system (system-source-file found-system)) 7582 (and previous (system-source-file previous))) 7583 :want-absolute t :resolve-symlinks *resolve-symlinks*)) 7584 (foundp (and (or found-system pathname previous) t))) 7585 (check-type found (or null pathname system)) 7586 (unless (check-not-old-asdf-system name pathname) 7587 (cond 7588 (previous (setf found nil pathname nil)) 7589 (t 7590 (setf found (sysdef-preloaded-system-search "asdf")) 7591 (assert (typep found 'system)) 7592 (setf found-system found pathname nil)))) 7593 (values foundp found-system pathname previous previous-time)))) 7600 (let* ((name (coerce-name name)) 7601 (in-memory (system-registered-p name)) ; load from disk if absent or newer on disk 7602 (previous (cdr in-memory)) 7603 (previous (and (typep previous 'system) previous)) 7604 (previous-time (car in-memory)) 7605 (found (search-for-system-definition name)) 7606 (found-system (and (typep found 'system) found)) 7607 (pathname (ensure-pathname 7608 (or (and (typep found '(or pathname string)) (pathname found)) 7609 (and found-system (system-source-file found-system)) 7610 (and previous (system-source-file previous))) 7611 :want-absolute t :resolve-symlinks *resolve-symlinks*)) 7612 (foundp (and (or found-system pathname previous) t))) 7613 (check-type found (or null pathname system)) 7614 (unless (check-not-old-asdf-system name pathname) 7615 (cond 7616 (previous (setf found nil pathname nil)) 7617 (t 7618 (setf found (sysdef-preloaded-system-search "asdf")) 7619 (assert (typep found 'system)) 7620 (setf found-system found pathname nil)))) 7621 (values foundp found-system pathname previous previous-time))) 7594 7622 7595 7623 (defmethod find-system ((name string) &optional (error-p t)) … … 7598 7626 (unless (equal name primary-name) 7599 7627 (find-system primary-name nil))) 7600 (loop 7601 (restart-case 7602 (multiple-value-bind (foundp found-system pathname previous previous-time) 7603 (locate-system name) 7604 (when (and found-system (eq found-system previous) 7605 (or (first (gethash `(find-system ,name) *asdf-cache*)) 7606 (and *immutable-systems* (gethash name *immutable-systems*)))) 7607 (return found-system)) 7608 (assert (eq foundp (and (or found-system pathname previous) t))) 7609 (let ((previous-pathname (and previous (system-source-file previous))) 7610 (system (or previous found-system))) 7611 (when (and found-system (not previous)) 7612 (register-system found-system)) 7613 (when (and system pathname) 7614 (setf (system-source-file system) pathname)) 7615 (when (and pathname 7616 (let ((stamp (get-file-stamp pathname))) 7617 (and stamp 7618 (not (and previous 7619 (or (pathname-equal pathname previous-pathname) 7620 (and pathname previous-pathname 7621 (pathname-equal 7622 (physicalize-pathname pathname) 7623 (physicalize-pathname previous-pathname)))) 7624 (stamp<= stamp previous-time)))))) 7625 ;; only load when it's a pathname that is different or has newer content, and not an old asdf 7626 (load-asd pathname :name name))) 7627 (let ((in-memory (system-registered-p name))) ; try again after loading from disk if needed 7628 (return 7629 (cond 7630 (in-memory 7631 (when pathname 7632 (setf (car in-memory) (get-file-stamp pathname))) 7633 (cdr in-memory)) 7634 (error-p 7635 (error 'missing-component :requires name)))))) 7636 (reinitialize-source-registry-and-retry () 7637 :report (lambda (s) 7638 (format s (compatfmt "~@<Retry finding system ~A after reinitializing the source-registry.~@:>") name)) 7639 (unset-asdf-cache-entry `(locate-system ,name)) 7640 (initialize-source-registry))))))) 7641 7628 (or (and *immutable-systems* (gethash name *immutable-systems*) 7629 (cdr (system-registered-p name))) 7630 (multiple-value-bind (foundp found-system pathname previous previous-time) 7631 (locate-system name) 7632 (assert (eq foundp (and (or found-system pathname previous) t))) 7633 (let ((previous-pathname (and previous (system-source-file previous))) 7634 (system (or previous found-system))) 7635 (when (and found-system (not previous)) 7636 (register-system found-system)) 7637 (when (and system pathname) 7638 (setf (system-source-file system) pathname)) 7639 (when (and pathname 7640 (let ((stamp (get-file-stamp pathname))) 7641 (and stamp 7642 (not (and previous 7643 (or (pathname-equal pathname previous-pathname) 7644 (and pathname previous-pathname 7645 (pathname-equal 7646 (physicalize-pathname pathname) 7647 (physicalize-pathname previous-pathname)))) 7648 (stamp<= stamp previous-time)))))) 7649 ;; only load when it's a pathname that is different or has newer content, and not an old asdf 7650 (load-asd pathname :name name))) 7651 (let ((in-memory (system-registered-p name))) ; try again after loading from disk if needed 7652 (cond 7653 (in-memory 7654 (when pathname 7655 (setf (car in-memory) (get-file-stamp pathname))) 7656 (cdr in-memory)) 7657 (error-p 7658 (error 'missing-component :requires name)) 7659 (t ;; not found: don't keep negative cache, see lp#1335323 7660 (unset-asdf-cache-entry `(locate-system ,name)) 7661 (return-from find-system nil))))))))) 7642 7662 ;;;; ------------------------------------------------------------------------- 7643 7663 ;;;; Finding components … … 7749 7769 (eq (missing-required-by c) component) 7750 7770 (equal (missing-requires c) name)))) 7751 7752 7753 7754 7771 (unless (component-parent component) 7772 (let ((name (coerce-name name))) 7773 (unset-asdf-cache-entry `(find-system ,name)) 7774 (unset-asdf-cache-entry `(locate-system ,name)))))))) 7755 7775 7756 7776 … … 9050 9070 9051 9071 (defmethod component-depends-on ((o prepare-op) (s system)) 9052 `((,*load-system-operation* ,@(component-sideway-dependencies s)))) 9072 (loop :for (o . cs) :in (call-next-method) 9073 :collect (cons (if (eq o 'load-op) *load-system-operation* o) cs))) 9053 9074 9054 9075 (defclass build-op (non-propagating-operation) () … … 9061 9082 that will load the system in the current image, and its typically LOAD-OP.")) 9062 9083 (defmethod component-depends-on ((o build-op) (c component)) 9063 `((,(or (component-build-operation c) *load-system-operation*) ,c))) 9084 `((,(or (component-build-operation c) *load-system-operation*) ,c) 9085 ,@(call-next-method))) 9064 9086 9065 9087 (defun make (system &rest keys) … … 11224 11246 #:operation-definition-warning #:operation-definition-error 11225 11247 11226 #:try-recompiling 11248 #:try-recompiling ; restarts 11227 11249 #:retry 11228 #:accept ; restarts11250 #:accept 11229 11251 #:coerce-entry-to-directory 11230 11252 #:remove-entry-from-registry 11253 #:clear-configuration-and-retry 11254 11231 11255 11232 11256 #:*encoding-detection-hook* … … 11264 11288 #:system-source-registry 11265 11289 #:user-source-registry-directory 11266 #:system-source-registry-directory)) 11290 #:system-source-registry-directory 11291 )) 11267 11292 11268 11293 ;;;; ---------------------------------------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.
