Update of /project/cl-irc/cvsroot/cl-irc/example In directory common-lisp.net:/home/bmastenbrook/cl-irc/example

Modified Files: clhs.lisp Log Message: Cristophe can't add

Date: Thu Jan 22 15:51:16 2004 Author: bmastenbrook

Index: cl-irc/example/clhs.lisp diff -u cl-irc/example/clhs.lisp:1.2 cl-irc/example/clhs.lisp:1.3 --- cl-irc/example/clhs.lisp:1.2 Mon Jan 5 09:53:15 2004 +++ cl-irc/example/clhs.lisp Thu Jan 22 15:51:16 2004 @@ -1,4 +1,4 @@ -;;;; $Id: clhs.lisp,v 1.2 2004/01/05 14:53:15 bmastenbrook Exp $ +;;;; $Id: clhs.lisp,v 1.3 2004/01/22 20:51:16 bmastenbrook Exp $ ;;;; $Source: /project/cl-irc/cvsroot/cl-irc/example/clhs.lisp,v $

;;;; clhs.lisp - an example IRC bot for cl-irc @@ -20,7 +20,7 @@ (in-package :clhs)

;;; CLHS. This will be the default lookup. -(defparameter *hyperspec-pathname* #p"/Users/chandler/Sites/HyperSpec/") +(defparameter *hyperspec-pathname* #p"/home/bmastenbrook/HyperSpec/")

(defparameter *hyperspec-map-file* (merge-pathnames "Data/Map_Sym.txt" *hyperspec-pathname*))

@@ -55,23 +55,23 @@ ;; Yuk. I know. Fixes welcome. (loop for section from 0 to 27 do (add-clhs-section-to-table section) - do (loop named s for s1 from 1 to 17 + do (loop named s for s1 from 1 to 26 unless (valid-target section s1) do (return-from s nil) do (add-clhs-section-to-table section s1) - do (loop named ss for s2 from 1 to 17 + do (loop named ss for s2 from 1 to 26 unless (valid-target section s1 s2) do (return-from ss nil) do (add-clhs-section-to-table section s1 s2) - do (loop named sss for s3 from 1 to 17 + do (loop named sss for s3 from 1 to 26 unless (valid-target section s1 s2 s3) do (return-from sss nil) do (add-clhs-section-to-table section s1 s2 s3) - do (loop named ssss for s4 from 1 to 17 + do (loop named ssss for s4 from 1 to 26 unless (valid-target section s1 s2 s3 s4) do (return-from ssss nil) do (add-clhs-section-to-table section s1 s2 s3 s4) - do (loop named sssss for s5 from 1 to 17 + do (loop named sssss for s5 from 1 to 26 unless (valid-target section s1 s2 s3 s4 s5) do (return-from sssss nil) do (add-clhs-section-to-table section s1 s2 s3 s4 s5))))))))