Changeset 3787


Ignore:
Timestamp:
09/15/03 03:53:21 (19 years ago)
Author:
piso
Message:

Minor cleanup.

File:
1 edited

Legend:

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

    r3598 r3787  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: setf.lisp,v 1.23 2003-09-08 01:38:21 piso Exp $
     4;;; $Id: setf.lisp,v 1.24 2003-09-15 03:53:21 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    6565
    6666(defmacro setf (&rest args)
    67   (let ((n-args (length args)))
     67  (let ((count (length args)))
    6868    (cond
    69      ((= n-args 2)
     69     ((= count 2)
    7070      (let ((place (first args))
    7171            (value (second args)))
     
    8484                   (error "SETF: unhandled case")))))
    8585         (t nil))))
    86      ((oddp n-args)
     86     ((oddp count)
    8787      (error "odd number of args to SETF"))
    8888     (t
Note: See TracChangeset for help on using the changeset viewer.