Commit dc259eb1 authored by rtoy's avatar rtoy
Browse files

*pcl-system-date* may not be long enough for subseq to work. Add a 

check for that.

(This happens if you do a checkout with the -kk flag, which causes
keywords not to be expanded.)
parent bafe4ddf

pcl/defsys.lisp

+5 −3
Original line number Diff line number Diff line
@@ -25,7 +25,7 @@ 
;;; *************************************************************************



(file-comment

  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/defsys.lisp,v 1.36 2004/04/14 03:32:47 rtoy Exp $")

  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/defsys.lisp,v 1.37 2008/11/12 16:36:41 rtoy Rel $")

;;;

;;; Some support stuff for compiling and loading PCL.  It would be nice if

;;; there was some portable make-system we could all agree to share for a
@@ -77,10 +77,12 @@ 
;;; 

(defvar *the-pcl-package* (find-package :pcl))



(defvar *pcl-system-date* "$Date: 2004/04/14 03:32:47 $")

(defvar *pcl-system-date* "$Date: 2008/11/12 16:36:41 $")



(setf (getf ext:*herald-items* :pcl)

      `("    CLOS based on Gerd's PCL " ,(subseq *pcl-system-date* 7 26)))

      `("    CLOS based on Gerd's PCL " ,(if (>= (length *pcl-system-date*) 26)

					     (subseq *pcl-system-date* 7 26)

					     "")))





;;; Yet Another Sort Of General System Facility and friends.

pcl/herald.lisp

+4 −2
Original line number Diff line number Diff line
@@ -2,7 +2,9 @@ 


#+(or loadable-pcl bootable-pcl)

(progn

  (defvar *pcl-system-date* "$Date: 2003/05/04 13:11:21 $")

  (defvar *pcl-system-date* "$Date: 2008/11/12 16:36:41 $")

  (setf (getf *herald-items* :pcl)

	`("    CLOS based on Gerd's PCL " ,(subseq *pcl-system-date* 7 26))))

	`("    CLOS based on Gerd's PCL " ,(if (>= (length *pcl-system-date*) 26)

					       (subseq *pcl-system-date* 7 26)

					       ""))))