Changeset 8449


Ignore:
Timestamp:
02/02/05 16:53:09 (16 years ago)
Author:
piso
Message:

(simple-program-error "Odd number of args...") => (error 'simple-program-error ...)

File:
1 edited

Legend:

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

    r4211 r8449  
    11;;; psetf.lisp
    22;;;
    3 ;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: psetf.lisp,v 1.1 2003-10-06 00:51:31 piso Exp $
     3;;; Copyright (C) 2003-2005 Peter Graves
     4;;; $Id: psetf.lisp,v 1.2 2005-02-02 16:53:09 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    2020;;; From CMUCL.
    2121
    22 (in-package "SYSTEM")
     22(in-package #:system)
    2323
    2424(require '#:collect)
     
    3232           (do ((a args (cddr a)))
    3333               ((endp a))
    34              (if (endp (cdr a))
    35                  (simple-program-error "Odd number of args to PSETF."))
     34             (when (endp (cdr a))
     35               (error 'simple-program-error
     36                      :format-control "Odd number of args to PSETF."))
    3637             (multiple-value-bind
    3738               (dummies vals newval setter getter)
Note: See TracChangeset for help on using the changeset viewer.