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)))) |