Ignore:
Timestamp:
11/18/03 01:29:23 (18 years ago)
Author:
piso
Message:

Work in progress.

File:
1 edited

Legend:

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

    r4820 r4821  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: defstruct.lisp,v 1.30 2003-11-18 01:23:16 piso Exp $
     4;;; $Id: defstruct.lisp,v 1.31 2003-11-18 01:29:23 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    6262             (or *ds-named* (null *ds-type*)))
    6363    (let ((pred (intern *ds-predicate*)))
    64       `((defun ,pred (object)
    65           (typep object ',*ds-name*))))))
     64      (case *ds-type*
     65        (LIST
     66         `((defun ,pred (object)
     67             (and (consp object) (eq (car object) ',*ds-name*)))))
     68        (t
     69         `((defun ,pred (object)
     70             (typep object ',*ds-name*))))))))
    6671
    6772(defun get-slot-accessor (slot)
Note: See TracChangeset for help on using the changeset viewer.