Changeset 8514


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

GET-FUNCTION-INFO-VALUE
SET-FUNCTION-INFO-VALUE

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/source-transform.lisp

    r7468 r8514  
    11;;; source-transform.lisp
    22;;;
    3 ;;; Copyright (C) 2004 Peter Graves
    4 ;;; $Id: source-transform.lisp,v 1.1 2004-08-21 03:22:09 piso Exp $
     3;;; Copyright (C) 2004-2005 Peter Graves
     4;;; $Id: source-transform.lisp,v 1.2 2005-02-09 18:38: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 source-transform (name)
    23   (let ((info (function-info name)))
    24     (and info (getf info :source-transform))))
     23  (get-function-info-value name :source-transform))
    2524
    2625(defun (setf source-transform) (transform name)
    27   (let ((info (function-info name)))
    28     (setf info (%putf info :source-transform transform))
    29     (setf (function-info name) info))
    30   transform)
     26  (set-function-info-value name :source-transform transform))
    3127
    3228(defmacro define-source-transform (name lambda-list &rest body)
Note: See TracChangeset for help on using the changeset viewer.