Skip to content
Snippets Groups Projects
Commit 46fbe6c9 authored by Daniel Barlow's avatar Daniel Barlow
Browse files

support experimental hyperdoc protocol

parent e0d02781
No related branches found
No related tags found
No related merge requests found
;;; This is asdf: Another System Definition Facility. $Revision: 1.63 $ ;;; This is asdf: Another System Definition Facility. $Revision: 1.64 $
;;; ;;;
;;; Feedback, bug reports, and patches are all welcome: please mail to ;;; Feedback, bug reports, and patches are all welcome: please mail to
;;; <cclan-list@lists.sf.net>. But note first that the canonical ;;; <cclan-list@lists.sf.net>. But note first that the canonical
...@@ -40,6 +40,7 @@ ...@@ -40,6 +40,7 @@
(defpackage #:asdf (defpackage #:asdf
(:export #:defsystem #:oos #:operate #:find-system #:run-shell-command (:export #:defsystem #:oos #:operate #:find-system #:run-shell-command
#:system-definition-pathname #:find-component ; miscellaneous #:system-definition-pathname #:find-component ; miscellaneous
#:hyperdocumentation #:hyperdoc
#:compile-op #:load-op #:load-source-op #:test-system-version #:compile-op #:load-op #:load-source-op #:test-system-version
#:operation ; operations #:operation ; operations
...@@ -87,7 +88,7 @@ ...@@ -87,7 +88,7 @@
(in-package #:asdf) (in-package #:asdf)
(defvar *asdf-revision* (let* ((v "$Revision: 1.63 $") (defvar *asdf-revision* (let* ((v "$Revision: 1.64 $")
(colon (position #\: v)) (colon (position #\: v))
(dot (position #\. v))) (dot (position #\. v)))
(and v colon dot (and v colon dot
...@@ -995,6 +996,15 @@ output to *trace-output*. Returns the shell's exit code." ...@@ -995,6 +996,15 @@ output to *trace-output*. Returns the shell's exit code."
(error "RUN-SHELL-PROGRAM not implemented for this Lisp") (error "RUN-SHELL-PROGRAM not implemented for this Lisp")
)) ))
(defgeneric hyperdocumentation (package name doc-type))
(defmethod hyperdocumentation ((package symbol) name doc-type)
(hyperdocumentation (find-package package) name doc-type))
(defun hyperdoc (name doc-type)
(hyperdocumentation (symbol-package name) name doc-type))
(pushnew :asdf *features*) (pushnew :asdf *features*)
#+sbcl #+sbcl
......
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