Changeset 4169

Timestamp:

10/02/03 00:04:30 (20 years ago)

Author:

piso

Message:

REMPROP is now implemented in Primitives.java.

Location:

trunk/j/src/org/armedbear/lisp

Files:

• autoloads.lisp (modified) (2 diffs)
• symbol.lisp (modified) (2 diffs)

trunk/j/src/org/armedbear/lisp/autoloads.lisp

@@ -2 +2 @@
 ;;;
 ;;; Copyright (C) 2003 Peter Graves
-;;; $Id: autoloads.lisp,v 1.39 2003-09-30 11:12:02 piso Exp $
+;;; $Id: autoloads.lisp,v 1.40 2003-10-02 00:04:30 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -32 +32 @@
             string-not-lessp string-not-greaterp)
           "strings.lisp")
-(autoload '(remprop getf get-properties copy-symbol) "symbol.lisp")
+(autoload '(getf get-properties copy-symbol) "symbol.lisp")
 (autoload '(open parse-integer))
 (autoload '(sort merge) "sort.lisp")

trunk/j/src/org/armedbear/lisp/symbol.lisp

@@ -2 +2 @@
 ;;;
 ;;; Copyright (C) 2003 Peter Graves
-;;; $Id: symbol.lisp,v 1.6 2003-09-14 18:01:12 piso Exp $
+;;; $Id: symbol.lisp,v 1.7 2003-10-02 00:03:54 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -21 +21 @@
 
 ;;; From CMUCL.
-
-(defun remprop (symbol indicator)
-  (do ((pl (symbol-plist symbol) (cddr pl))
-       (prev nil pl))
-    ((atom pl) nil)
-    (cond ((atom (cdr pl))
-     (error "~S has an odd number of items in its property list" symbol))
-    ((eq (car pl) indicator)
-     (cond (prev (rplacd (cdr prev) (cddr pl)))
-     (t
-      (setf (symbol-plist symbol) (cddr pl))))
-     (return t)))))
 
 (defun getf (place indicator &optional (default ()))