Ignore:
Timestamp:
11/07/03 20:21:17 (18 years ago)
Author:
piso
Message:

GETF is now implemented in Primitives.java.

File:
1 edited

Legend:

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

    r4169 r4675  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: symbol.lisp,v 1.7 2003-10-02 00:03:54 piso Exp $
     4;;; $Id: symbol.lisp,v 1.8 2003-11-07 20:20:55 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    2121
    2222;;; From CMUCL.
    23 
    24 (defun getf (place indicator &optional (default ()))
    25   (do ((plist place (cddr plist)))
    26       ((null plist) default)
    27     (cond ((atom (cdr plist))
    28      (error 'type-error "malformed property list: ~S" place))
    29     ((eq (car plist) indicator)
    30      (return (cadr plist))))))
    3123
    3224(defun %putf (place property new-value)
Note: See TracChangeset for help on using the changeset viewer.