/[gcl]/gcl/lsp/gcl_top.lsp
ViewVC logotype

Diff of /gcl/lsp/gcl_top.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4 by camm, Sat Feb 14 17:39:22 2004 UTC revision 1.5 by camm, Sun Apr 10 01:13:36 2005 UTC
# Line 709  First directory is checked for first nam Line 709  First directory is checked for first nam
709      (or v (return nil))      (or v (return nil))
710      (let ((str (car v)))      (let ((str (car v)))
711        (declare (string str))        (declare (string str))
712        (if (and (eql  (aref str 0) (aref a 0))  ;;FIXME  equal on strings should compile to something like this by itself
713                 (eql  (aref str 1) (aref a 1))        (if (and (= (length str) (length a))
714                   (or (= (length str) 0) (eql  (aref str 0) (aref a 0)))
715                   (or (= (length str) 1) (eql  (aref str 1) (aref a 1)))
716                 (equal str a))                 (equal str a))
717            (return            (return
718            (cond (val-if-there)             (cond (val-if-there)
719                  ((cadr v)(values (cadr v) (cdr v)))                   ((cadr v)(values (cadr v) (cdr v)))
720                  (t t)))))))                   (t t)))))))
721    
722  ; (let ((tem (member a si::*command-args* :test 'equal)))  ; (let ((tem (member a si::*command-args* :test 'equal)))
723  ;    (if tem (or  val-if-there (cadr tem) t))))  ;    (if tem (or  val-if-there (cadr tem) t))))

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26