Changeset 14578


Ignore:
Timestamp:
Jan 12, 2011, 10:34:43 PM (9 years ago)
Author:
gb
Message:

Use (SETF (FDEFINITION x) y) instead of (SETF (SYMBOL-FUNCTION x) y) in
a few places, to ease bootstrapping.
No more arm-subprims.o
More ARM subprim address bootstrapping.

Location:
trunk/source
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/method-combination.lisp

    r13067 r14578  
    715715; We don't add any contextual information yet.
    716716; Maybe we never will.
    717 (setf (symbol-function 'method-combination-error) #'%method-combination-error)
    718 (setf (symbol-function 'invalid-method-error) #'%invalid-method-error)
     717(setf (fdefinition 'method-combination-error) #'%method-combination-error)
     718(setf (fdefinition 'invalid-method-error) #'%invalid-method-error)
    719719
    720720;;;;;;;
  • trunk/source/lib/pprint.lisp

    r13965 r14578  
    374374
    375375(progn
    376   (setf (symbol-function 'xp-stream-stream) #'(lambda (s) (xp-stream s)))
     376  (setf (fdefinition 'xp-stream-stream) #'(lambda (s) (xp-stream s)))
    377377
    378378  (defmethod streamp ((x xp-structure)) t)
  • trunk/source/lisp-kernel/linuxarm/Makefile

    r14472 r14578  
    2626CDEFINES = -DLINUX -DARM -D_REENTRANT -D_GNU_SOURCE -DUSE_FUTEX -DSVN_REVISION=$(SVN_REVISION)
    2727CDEBUG = -g
    28 COPT = -O2
     28COPT = #-O2
    2929# Once in a while, -Wformat says something useful.  The odds are against that,
    3030# however.
     
    5454        $(CC) -include ../$(PLATFORM_H) -c $< $(CDEFINES) $(CDEBUG) $(COPT) -marm $(WFORMAT)  -o $@
    5555
    56 SPOBJ = pad.o  arm-spentry.o arm-subprims.o
     56SPOBJ = pad.o  arm-spentry.o
    5757ASMOBJ = arm-asmutils.o imports.o
    5858
  • trunk/source/xdump/xarmfasload.lisp

    r14573 r14578  
    6969(defun adjust-closure-trampoline-for-subprims-bias (backend-name)
    7070  (let* ((backend (find-backend backend-name))
    71          (bias (if backend (backend-real-subprims-bias backend)))
     71         (bias (if backend (backend-real-subprims-bias backend) 0))
    7272         (code *arm-closure-trampoline-code*))
    7373    (if (eql bias 0)
Note: See TracChangeset for help on using the changeset viewer.