Browse files

Fix formatting of "file://" URLs. Fixes #9.

This was breaking "eww" (emacs browser). Thanks to @noncopyable for reporting!
  • Loading branch information...
Hexstream committed Mar 13, 2015
1 parent 30102ba commit 2bf544686f5b8e4d056a194df30f92879097f716
Showing with 4 additions and 4 deletions.
  1. +2 −2 clhs-use-local.el
  2. +1 −1 clhs.asd
  3. +1 −1 main.lisp
@@ -1,4 +1,4 @@
;;;; Version: 0.5
;;;; Version: 0.6
;;;; This file was installed by clhs (trivial ASDF wrapper), like this:
;;;; (clhs:install-clhs-use-local)
@@ -63,7 +63,7 @@

(defun quicklisp-clhs-setup-hyperspec-root (&optional through-symlink-p)
(setq common-lisp-hyperspec-root
(concat "file:"
(concat "file://"
(quicklisp-clhs-hyperspec-location through-symlink-p))))

@@ -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 <>). Redistribution of the HyperSpec is made with permission from LispWorks per the terms and restrictions set forth at <>. You may further redistribute the HyperSpec subject to the same terms and restrictions; consult the previous link for all details."

:version "0.6.2"
:version "0.6.3"
:serial cl:t
:components ((:module "HyperSpec-7-0")
(:file "package")
@@ -119,7 +119,7 @@
(if indirect-through-quicklisp-p
(format nil "(load ~S t)"
(namestring (%clhs-use-local quicklisp-directory)))
(format nil "(setq common-lisp-hyperspec-root~% \"file:~A\")"
(format nil "(setq common-lisp-hyperspec-root~% \"file://~A\")"
(namestring root))))

(defgeneric %print (kind &key)

0 comments on commit 2bf5446

Please sign in to comment.