Update of /project/cl-who/cvsroot/cl-who In directory common-lisp.net:/tmp/cvs-serv31458 Modified Files: CHANGELOG INSTALLATION cl-who.asd cl-who.system load.lisp packages.lisp who.lisp Log Message: pre-0.4.2 with hyperdoc support Date: Fri Apr 23 20:34:10 2004 Author: eweitz Index: cl-who/CHANGELOG diff -u cl-who/CHANGELOG:1.1.1.1 cl-who/CHANGELOG:1.2 --- cl-who/CHANGELOG:1.1.1.1 Tue Jan 6 20:08:12 2004 +++ cl-who/CHANGELOG Fri Apr 23 20:34:10 2004 @@ -1,3 +1,11 @@ +Version 0.4.2 +????-??-?? +Added hyperdoc support + +Version 0.4.1 +2004-04-15 +Added :CL-WHO to *FEATURES* (for TBNL) + Version 0.4.0 2003-12-03 Allow for optional LHTML syntax (patch by Kevin Rosenberg) Index: cl-who/INSTALLATION diff -u cl-who/INSTALLATION:1.1.1.1 cl-who/INSTALLATION:1.2 --- cl-who/INSTALLATION:1.1.1.1 Tue Jan 6 20:08:13 2004 +++ cl-who/INSTALLATION Fri Apr 23 20:34:10 2004 @@ -25,4 +25,8 @@ check if everything works as expected. Complete documentation for CL-WHO can be found in the 'doc' -directory. \ No newline at end of file +directory. + +CL-WHO also supports Nikodemus Siivola's HYPERDOC, see +<http://common-lisp.net/project/hyperdoc/> and +<http://www.cliki.net/hyperdoc>. \ No newline at end of file Index: cl-who/cl-who.asd diff -u cl-who/cl-who.asd:1.1.1.1 cl-who/cl-who.asd:1.2 --- cl-who/cl-who.asd:1.1.1.1 Tue Jan 6 20:08:15 2004 +++ cl-who/cl-who.asd Fri Apr 23 20:34:10 2004 @@ -1,7 +1,7 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-USER; Base: 10 -*- -;;; $Header: /project/cl-who/cvsroot/cl-who/cl-who.asd,v 1.1.1.1 2004/01/07 01:08:15 eweitz Exp $ +;;; $Header: /project/cl-who/cvsroot/cl-who/cl-who.asd,v 1.2 2004/04/24 00:34:10 eweitz Exp $ -;;; Copyright (c) 2003, Dr. Edmund Weitz. All rights reserved. +;;; Copyright (c) 2003-2004, Dr. Edmund Weitz. All rights reserved. ;;; Redistribution and use in source and binary forms, with or without ;;; modification, are permitted provided that the following conditions Index: cl-who/cl-who.system diff -u cl-who/cl-who.system:1.1.1.1 cl-who/cl-who.system:1.2 --- cl-who/cl-who.system:1.1.1.1 Tue Jan 6 20:08:15 2004 +++ cl-who/cl-who.system Fri Apr 23 20:34:10 2004 @@ -1,7 +1,7 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-USER; Base: 10 -*- -;;; $Header: /project/cl-who/cvsroot/cl-who/cl-who.system,v 1.1.1.1 2004/01/07 01:08:15 eweitz Exp $ +;;; $Header: /project/cl-who/cvsroot/cl-who/cl-who.system,v 1.2 2004/04/24 00:34:10 eweitz Exp $ -;;; Copyright (c) 2003, Dr. Edmund Weitz. All rights reserved. +;;; Copyright (c) 2003-2004, Dr. Edmund Weitz. All rights reserved. ;;; Redistribution and use in source and binary forms, with or without ;;; modification, are permitted provided that the following conditions Index: cl-who/load.lisp diff -u cl-who/load.lisp:1.1.1.1 cl-who/load.lisp:1.2 --- cl-who/load.lisp:1.1.1.1 Tue Jan 6 20:08:12 2004 +++ cl-who/load.lisp Fri Apr 23 20:34:10 2004 @@ -1,7 +1,7 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-USER; Base: 10 -*- -;;; $Header: /project/cl-who/cvsroot/cl-who/load.lisp,v 1.1.1.1 2004/01/07 01:08:12 eweitz Exp $ +;;; $Header: /project/cl-who/cvsroot/cl-who/load.lisp,v 1.2 2004/04/24 00:34:10 eweitz Exp $ -;;; Copyright (c) 2003, Dr. Edmund Weitz. All rights reserved. +;;; Copyright (c) 2003-2004, Dr. Edmund Weitz. All rights reserved. ;;; Redistribution and use in source and binary forms, with or without ;;; modification, are permitted provided that the following conditions Index: cl-who/packages.lisp diff -u cl-who/packages.lisp:1.1.1.1 cl-who/packages.lisp:1.2 --- cl-who/packages.lisp:1.1.1.1 Tue Jan 6 20:08:12 2004 +++ cl-who/packages.lisp Fri Apr 23 20:34:10 2004 @@ -1,7 +1,7 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-USER; Base: 10 -*- -;;; $Header: /project/cl-who/cvsroot/cl-who/packages.lisp,v 1.1.1.1 2004/01/07 01:08:12 eweitz Exp $ +;;; $Header: /project/cl-who/cvsroot/cl-who/packages.lisp,v 1.2 2004/04/24 00:34:10 eweitz Exp $ -;;; Copyright (c) 2003, Dr. Edmund Weitz. All rights reserved. +;;; Copyright (c) 2003-2004, Dr. Edmund Weitz. All rights reserved. ;;; Redistribution and use in source and binary forms, with or without ;;; modification, are permitted provided that the following conditions @@ -66,3 +66,5 @@ "STR" "WITH-HTML-OUTPUT" "WITH-HTML-OUTPUT-TO-STRING")) + +(pushnew :cl-who *features*) \ No newline at end of file Index: cl-who/who.lisp diff -u cl-who/who.lisp:1.1.1.1 cl-who/who.lisp:1.2 --- cl-who/who.lisp:1.1.1.1 Tue Jan 6 20:08:13 2004 +++ cl-who/who.lisp Fri Apr 23 20:34:10 2004 @@ -1,7 +1,7 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package:CL-WHO; Base: 10 -*- -;;; $Header: /project/cl-who/cvsroot/cl-who/who.lisp,v 1.1.1.1 2004/01/07 01:08:13 eweitz Exp $ +;;; $Header: /project/cl-who/cvsroot/cl-who/who.lisp,v 1.2 2004/04/24 00:34:10 eweitz Exp $ -;;; Copyright (c) 2003, Dr. Edmund Weitz. All rights reserved. +;;; Copyright (c) 2003-2004, Dr. Edmund Weitz. All rights reserved. ;;; Redistribution and use in source and binary forms, with or without ;;; modification, are permitted provided that the following conditions @@ -408,3 +408,22 @@ (setq prologue *prologue*)) `(pprint '(let ((,var ,(or stream var))) ,(tree-to-commands body var prologue)))) + +;; stuff for Nikodemus Siivola's HYPERDOC +;; see <http://common-lisp.net/project/hyperdoc/> +;; and <http://www.cliki.net/hyperdoc> + +(defvar *hyperdoc-base-uri* "http://weitz.de/cl-who/") + +(let ((exported-symbols-alist + (loop for symbol being the external-symbols of :cl-who + collect (cons symbol + (concatenate 'string + "#" + (string-downcase symbol)))))) + (defun hyperdoc-lookup (symbol type) + (declare (ignore type)) + (cdr (assoc symbol + exported-symbols-alist + :test #'eq)))) + \ No newline at end of file