Changeset 8532


Ignore:
Timestamp:
02/11/05 19:36:38 (16 years ago)
Author:
piso
Message:

Moved FDEFINITION and SYS::%SET-FDEFINITION to fdefinition.lisp.

File:
1 edited

Legend:

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

    r8470 r8532  
    22;;;
    33;;; Copyright (C) 2003-2005 Peter Graves
    4 ;;; $Id: setf.lisp,v 1.48 2005-02-05 18:30:58 piso Exp $
     4;;; $Id: setf.lisp,v 1.49 2005-02-11 19:36:38 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    1818;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
    1919
    20 (in-package "SYSTEM")
     20(in-package #:system)
    2121
    2222(defun get-setf-method-inverse (form inverse setf-function)
     
    100100  `(setf ,place (- ,place ,delta)))
    101101
    102 (defun fdefinition (name)
    103   (cond ((symbolp name)
    104          (symbol-function name))
    105         ((and (consp name)
    106               (eq (car name) 'setf))
    107          (or (get (cadr name) '%setf-function)
    108              (error 'undefined-function :name name)))
    109         (t
    110          (error 'type-error))))
    111 
    112 (defun %set-fdefinition (name function)
    113   (cond ((symbolp name)
    114          (fset name function))
    115         ((and (consp name) (eq (car name) 'setf))
    116          (%put (cadr name) '%setf-function function))
    117         (t
    118          (error 'type-error))))
    119 
    120102;; (defsetf subseq (sequence start &optional (end nil)) (v)
    121103;;   `(progn (replace ,sequence ,v :start1 ,start :end1 ,end)
     
    226208(defsetf svref %svset)
    227209(defsetf fill-pointer %set-fill-pointer)
    228 (defsetf fdefinition %set-fdefinition)
    229210(defsetf subseq %set-subseq)
    230211(defsetf symbol-value set)
Note: See TracChangeset for help on using the changeset viewer.