Changeset 11021


Ignore:
Timestamp:
03/17/06 01:33:42 (15 years ago)
Author:
piso
Message:

SYS:%PUT => SYS:PUT

Location:
trunk/j/src/org/armedbear/lisp
Files:
7 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/compile-file.lisp

    r10188 r11021  
    11;;; compile-file.lisp
    22;;;
    3 ;;; Copyright (C) 2004-2005 Peter Graves
    4 ;;; $Id: compile-file.lisp,v 1.118 2005-10-22 19:33:33 piso Exp $
     3;;; Copyright (C) 2004-2006 Peter Graves
     4;;; $Id: compile-file.lisp,v 1.119 2006-03-17 01:33:42 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    192192                        (setf form
    193193                              (if (special-operator-p name)
    194                                   `(%put ',name 'macroexpand-macro
    195                                          (make-macro ',name
    196                                                      (load-compiled-function
    197                                                       ,(file-namestring classfile))))
     194                                  `(put ',name 'macroexpand-macro
     195                                        (make-macro ',name
     196                                                    (load-compiled-function
     197                                                     ,(file-namestring classfile))))
    198198                                  `(fset ',name
    199199                                         (make-macro ',name
     
    254254                     (return-from process-toplevel-form)
    255255                     )
    256                     ((eq operator '%PUT)
     256                    ((eq operator 'PUT)
    257257                     (setf form (precompile-form form nil)))
    258258                    ((eq operator 'COMPILER-DEFSTRUCT)
  • trunk/j/src/org/armedbear/lisp/defmacro.lisp

    r9539 r11021  
    11;;; defmacro.lisp
    22;;;
    3 ;;; Copyright (C) 2003-2005 Peter Graves
    4 ;;; $Id: defmacro.lisp,v 1.6 2005-06-27 12:23:39 piso Exp $
     3;;; Copyright (C) 2003-2006 Peter Graves
     4;;; $Id: defmacro.lisp,v 1.7 2006-03-17 01:33:42 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    3333                                    (or (precompile nil ,expander) ,expander))))
    3434             ,@(if (special-operator-p name)
    35                    `((%put ',name 'macroexpand-macro macro))
     35                   `((put ',name 'macroexpand-macro macro))
    3636                   `((fset ',name macro)))
    3737             (%set-arglist macro ',lambda-list)
  • trunk/j/src/org/armedbear/lisp/early-defuns.lisp

    r10639 r11021  
    11;;; early-defuns.lisp
    22;;;
    3 ;;; Copyright (C) 2003-2005 Peter Graves
    4 ;;; $Id: early-defuns.lisp,v 1.39 2005-12-09 15:03:30 piso Exp $
     3;;; Copyright (C) 2003-2006 Peter Graves
     4;;; $Id: early-defuns.lisp,v 1.40 2006-03-17 01:33:42 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    2424
    2525;; (deftype index () '(integer 0 (#.most-positive-fixnum)))
    26 (%put 'index 'deftype-definition
    27       (lambda () '(integer 0 (#.most-positive-fixnum))))
     26(put 'index 'deftype-definition
     27     (lambda () '(integer 0 (#.most-positive-fixnum))))
    2828
    2929;; (deftype java-long ()
    3030;;   '(integer #.most-negative-java-long #.most-positive-java-long))
    31 (%put 'java-long 'deftype-definition
    32       (lambda () '(integer #.most-negative-java-long #.most-positive-java-long)))
     31(put 'java-long 'deftype-definition
     32     (lambda () '(integer #.most-negative-java-long #.most-positive-java-long)))
    3333
    3434(defun %type-error (datum expected-type)
  • trunk/j/src/org/armedbear/lisp/fdefinition.lisp

    r10460 r11021  
    11;;; fdefinition.lisp
    22;;;
    3 ;;; Copyright (C) 2005 Peter Graves
    4 ;;; $Id: fdefinition.lisp,v 1.16 2005-11-15 14:08:33 piso Exp $
     3;;; Copyright (C) 2005-2006 Peter Graves
     4;;; $Id: fdefinition.lisp,v 1.17 2006-03-17 01:33:42 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    4747                    source-pathname)))
    4848    (cond ((symbolp name)
    49            (%put name '%source source)))))
     49           (put name '%source source)))))
    5050
    5151;; Redefined in trace.lisp.
  • trunk/j/src/org/armedbear/lisp/known-functions.lisp

    r10942 r11021  
    11;;; known-functions.lisp
    22;;;
    3 ;;; Copyright (C) 2005 Peter Graves
    4 ;;; $Id: known-functions.lisp,v 1.53 2006-01-16 22:43:59 piso Exp $
     3;;; Copyright (C) 2005-2006 Peter Graves
     4;;; $Id: known-functions.lisp,v 1.54 2006-03-17 01:33:42 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    7575           %make-structure
    7676           %method-function
    77            %put
     77           put
    7878           %set-cddr
    7979           %stream-terpri
  • trunk/j/src/org/armedbear/lisp/precompiler.lisp

    r10938 r11021  
    22;;;
    33;;; Copyright (C) 2003-2006 Peter Graves
    4 ;;; $Id: precompiler.lisp,v 1.153 2006-01-14 13:28:34 piso Exp $
     4;;; $Id: precompiler.lisp,v 1.154 2006-03-17 01:33:42 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    10931093;;                                     (or (precompile nil ,expander) ,expander))))
    10941094;;              ,@(if (special-operator-p name)
    1095 ;;                    `((%put ',name 'macroexpand-macro macro))
     1095;;                    `((put ',name 'macroexpand-macro macro))
    10961096;;                    `((fset ',name macro)))
    10971097;;              (%set-arglist macro ',lambda-list)
  • trunk/j/src/org/armedbear/lisp/setf.lisp

    r11018 r11021  
    22;;;
    33;;; Copyright (C) 2003-2006 Peter Graves
    4 ;;; $Id: setf.lisp,v 1.64 2006-03-16 19:49:12 piso Exp $
     4;;; $Id: setf.lisp,v 1.65 2006-03-17 01:33:42 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    120120  (declare (ignore doc)) ; FIXME
    121121  (when inverse
    122     (%put name 'setf-inverse inverse))
     122    (put name 'setf-inverse inverse))
    123123  (when expander
    124     (%put name 'setf-expander expander))
     124    (put name 'setf-expander expander))
    125125  name)
    126126
    127127(defmacro defsetf (access-function update-function)
    128128  `(eval-when (:load-toplevel :compile-toplevel :execute)
    129      (%put ',access-function 'setf-inverse ',update-function)))
     129     (put ',access-function 'setf-inverse ',update-function)))
    130130
    131131(defun %set-caar (x v) (set-car (car x) v))
     
    215215(defsetf symbol-function %set-symbol-function)
    216216(defsetf symbol-plist %set-symbol-plist)
    217 (defsetf get %put)
     217(defsetf get put)
    218218(defsetf gethash puthash)
    219219(defsetf char set-char)
Note: See TracChangeset for help on using the changeset viewer.