Changeset 3784


Ignore:
Timestamp:
09/14/03 18:01:12 (19 years ago)
Author:
piso
Message:

GETF

File:
1 edited

Legend:

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

    r3400 r3784  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: symbol.lisp,v 1.5 2003-08-15 14:31:41 piso Exp $
     4;;; $Id: symbol.lisp,v 1.6 2003-09-14 18:01:12 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    3838      ((null plist) default)
    3939    (cond ((atom (cdr plist))
    40      (error 'type-error "malformed property list: ~S" place)
     40     (error 'type-error "malformed property list: ~S" place))
    4141    ((eq (car plist) indicator)
    42      (return (cadr plist)))))))
     42     (return (cadr plist))))))
    4343
    4444(defun %putf (place property new-value)
Note: See TracChangeset for help on using the changeset viewer.