Changeset 8758


Ignore:
Timestamp:
03/12/05 18:34:59 (16 years ago)
Author:
piso
Message:

(typep "foo" '(string *)) => T

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/typep.lisp

    r8016 r8758  
    22;;;
    33;;; Copyright (C) 2003-2004 Peter Graves
    4 ;;; $Id: typep.lisp,v 1.21 2004-10-20 00:17:07 piso Exp $
     4;;; $Id: typep.lisp,v 1.22 2005-03-12 18:34:59 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    104104       (and (stringp object)
    105105            (or (null i)
     106                (eq (car i) '*)
    106107                (eql (car i) (length object)))))
    107108      (SIMPLE-VECTOR
Note: See TracChangeset for help on using the changeset viewer.