Changeset 3784

Timestamp:

09/14/03 18:01:12 (20 years ago)

Author:

piso

Message:

GETF

File:

• trunk/j/src/org/armedbear/lisp/symbol.lisp (modified) (2 diffs)

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

@@ -2 +2 @@
 ;;;
 ;;; Copyright (C) 2003 Peter Graves
-;;; $Id: symbol.lisp,v 1.5 2003-08-15 14:31:41 piso Exp $
+;;; $Id: symbol.lisp,v 1.6 2003-09-14 18:01:12 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -38 +38 @@
       ((null plist) default)
     (cond ((atom (cdr plist))
-     (error 'type-error "malformed property list: ~S" place)
+     (error 'type-error "malformed property list: ~S" place))
     ((eq (car plist) indicator)
-     (return (cadr plist)))))))
+     (return (cadr plist))))))
 
 (defun %putf (place property new-value)