Permalink
Browse files

CLISP seriously throws an error for (probe-file directory). Deliberat…

…ely. (Such capricious BULLSHIT!)
  • Loading branch information...
Hexstream committed Aug 5, 2014
1 parent 3691521 commit 30102ba13fa85f4d2fd5b2852e96ed316b491526
Showing with 12 additions and 6 deletions.
  1. +1 −1 clhs.asd
  2. +11 −5 main.lisp
@@ -14,7 +14,7 @@ Thin ASDF wrapper (excluding HyperSpec): Public Domain"
;; See the README file for a longer description.
:description "The HyperSpec-7-0 directory in this thin ASDF wrapper is a complete and unmodified copy of Lispworks' Common Lisp HyperSpec version 7.0 (referenced from <http://www.lispworks.com/documentation/common-lisp.html>). Redistribution of the HyperSpec is made with permission from LispWorks per the terms and restrictions set forth at <http://www.lispworks.com/documentation/HyperSpec/Front/Help.htm#Legal>. You may further redistribute the HyperSpec subject to the same terms and restrictions; consult the previous link for all details."

:version "0.6.1"
:version "0.6.2"
:serial cl:t
:components ((:module "HyperSpec-7-0")
(:file "package")
@@ -29,10 +29,16 @@
(make-pathname :directory `(:relative ,@relative-directory))
system-directory))

(defun %probe-file (pathname)
#-clisp
(probe-file pathname)
#+clisp
(ext:probe-pathname pathname))

(defun %copy-file (source destination
&key (if-source-does-not-exist :error)
(if-destination-exists :error))
(unless (and (eq if-destination-exists nil) (probe-file destination))
(unless (and (eq if-destination-exists nil) (%probe-file destination))
(let (buffer)
(with-open-file (in source
:direction :input
@@ -63,11 +69,11 @@

(defun clhs-use-local-status (&key (quicklisp-directory *quicklisp-directory*))
(let* ((bundled
(probe-file (%clhs-use-local *system-directory*)))
(%probe-file (%clhs-use-local *system-directory*)))
(expected-installed
(%clhs-use-local quicklisp-directory))
(installed
(probe-file expected-installed))
(%probe-file expected-installed))
(bundled-version (%clhs-use-local-version bundled))
(installed-version (%clhs-use-local-version installed)))
(values (cond ((not installed)
@@ -93,7 +99,7 @@
(if ensure-directories-exist-p
(ensure-directories-exist destination-directory :verbose verbose))
(if (and (not ensure-directories-exist-p)
(not (probe-file destination-directory)))
(not (%probe-file destination-directory)))
(let ((directory (directory-namestring destination-directory)))
(if (pathname-match-p destination-directory *quicklisp-directory*)
(format t "The following doesn't seem to be ~
@@ -193,7 +199,7 @@ and how to get Emacs to open CLHS pages in a different browser.
(format t "~2&[ Quicklisp directory: \"~A\" (~A)~% ~
If the above location is not correct, do:~% ~A ]"
directory
(if (probe-file directory) "exists" "DOES NOT exist")
(if (%probe-file directory) "exists" "DOES NOT exist")
(%quicklisp-directory-setf-example)))
(if (not indirectp)
(apply #'%print :step-2 common)

0 comments on commit 30102ba

Please sign in to comment.