Skip to content
Snippets Groups Projects
Commit fc24d396 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

1.637: Don't use :unspecific on clisp (not supported by clisp 2.48).

Unintern old asdf:around symbols.
parent 826b12b0
No related branches found
Tags 1.637
No related merge requests found
...@@ -145,7 +145,7 @@ ...@@ -145,7 +145,7 @@
(ensure-package (ensure-package
':asdf ':asdf
:use '(:common-lisp :asdf-utilities) :use '(:common-lisp :asdf-utilities)
:unintern '(#:*asdf-revision*) :unintern '(#:*asdf-revision* #:around #:asdf-method-combination)
:fmakunbound '(#:perform #:explain #:output-files #:operation-done-p) :fmakunbound '(#:perform #:explain #:output-files #:operation-done-p)
:export :export
'(#:defsystem #:oos #:operate #:find-system #:run-shell-command '(#:defsystem #:oos #:operate #:find-system #:run-shell-command
...@@ -250,7 +250,7 @@ ...@@ -250,7 +250,7 @@
;; This parameter isn't actually user-visible ;; This parameter isn't actually user-visible
;; -- please use the exported function ASDF:ASDF-VERSION below. ;; -- please use the exported function ASDF:ASDF-VERSION below.
;; the 1+ hair is to ensure that we don't do an inadvertent find and replace ;; the 1+ hair is to ensure that we don't do an inadvertent find and replace
(subseq "VERSION:1.636" (1+ (length "VERSION")))) (subseq "VERSION:1.637" (1+ (length "VERSION"))))
(defun asdf-version () (defun asdf-version ()
"Exported interface to the version of ASDF currently installed. A string. "Exported interface to the version of ASDF currently installed. A string.
...@@ -495,11 +495,12 @@ starting the separation from the end, e.g. when called with arguments ...@@ -495,11 +495,12 @@ starting the separation from the end, e.g. when called with arguments
(setf end start)))))) (setf end start))))))
(defun split-name-type (filename) (defun split-name-type (filename)
(destructuring-bind (name &optional (type :unspecific)) (let ((unspecific #-clisp :unspecific #+clisp nil))
(split-string filename :max 2 :separator ".") (destructuring-bind (name &optional (type unspecific))
(if (equal name "") (split-string filename :max 2 :separator ".")
(values filename :unspecific) (if (equal name "")
(values name type)))) (values filename unspecific)
(values name type)))))
(defun component-name-to-pathname-components (s &optional force-directory) (defun component-name-to-pathname-components (s &optional force-directory)
"Splits the path string S, returning three values: "Splits the path string S, returning three values:
......
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