Changeset 4169


Ignore:
Timestamp:
10/02/03 00:04:30 (19 years ago)
Author:
piso
Message:

REMPROP is now implemented in Primitives.java.

Location:
trunk/j/src/org/armedbear/lisp
Files:
2 edited

Legend:

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

    r4148 r4169  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: autoloads.lisp,v 1.39 2003-09-30 11:12:02 piso Exp $
     4;;; $Id: autoloads.lisp,v 1.40 2003-10-02 00:04:30 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    3232            string-not-lessp string-not-greaterp)
    3333          "strings.lisp")
    34 (autoload '(remprop getf get-properties copy-symbol) "symbol.lisp")
     34(autoload '(getf get-properties copy-symbol) "symbol.lisp")
    3535(autoload '(open parse-integer))
    3636(autoload '(sort merge) "sort.lisp")
  • trunk/j/src/org/armedbear/lisp/symbol.lisp

    r3784 r4169  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: symbol.lisp,v 1.6 2003-09-14 18:01:12 piso Exp $
     4;;; $Id: symbol.lisp,v 1.7 2003-10-02 00:03:54 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    2121
    2222;;; From CMUCL.
    23 
    24 (defun remprop (symbol indicator)
    25   (do ((pl (symbol-plist symbol) (cddr pl))
    26        (prev nil pl))
    27     ((atom pl) nil)
    28     (cond ((atom (cdr pl))
    29      (error "~S has an odd number of items in its property list" symbol))
    30     ((eq (car pl) indicator)
    31      (cond (prev (rplacd (cdr prev) (cddr pl)))
    32      (t
    33       (setf (symbol-plist symbol) (cddr pl))))
    34      (return t)))))
    3523
    3624(defun getf (place indicator &optional (default ()))
Note: See TracChangeset for help on using the changeset viewer.