Changeset 5260


Ignore:
Timestamp:
12/27/03 05:17:45 (18 years ago)
Author:
piso
Message:

FDEFINITION

File:
1 edited

Legend:

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

    r4561 r5260  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: setf.lisp,v 1.36 2003-10-28 23:25:12 piso Exp $
     4;;; $Id: setf.lisp,v 1.37 2003-12-27 05:17:45 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    122122  (cond ((symbolp name)
    123123         (symbol-function name))
    124         ((and (consp name) (eq (car name) 'setf))
    125          (or (get (cadr name) 'setf-function) (error 'undefined-function)))
    126         (t (error 'type-error))))
     124        ((and (consp name)
     125              (eq (car name) 'setf))
     126         (or (get (cadr name) 'setf-function)
     127             (error 'undefined-function :name name)))
     128        (t
     129         (error 'type-error))))
    127130
    128131(defun %set-fdefinition (name function)
Note: See TracChangeset for help on using the changeset viewer.