diff --git a/code/parse-time.lisp b/code/parse-time.lisp index 23be5c25c4dcb9c6b1cbeea86e05184e9fc4582c..41b98f51d3a22ae41261e536debc911530f8f058 100644 --- a/code/parse-time.lisp +++ b/code/parse-time.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/parse-time.lisp,v 1.12 2004/12/23 14:49:29 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/parse-time.lisp,v 1.13 2005/06/01 12:08:36 rtoy Exp $") ;;; ;;; ********************************************************************** @@ -405,7 +405,7 @@ (defun date-time-divider (character) (and (characterp character) - (member character date-dime-dividers :test #'char=))) + (member character date-time-dividers :test #'char=))) ;;; Match-substring takes a string argument and tries to match it with