Changeset 5029


Ignore:
Timestamp:
12/08/03 20:54:25 (18 years ago)
Author:
piso
Message:

MAKE-INSTANCE-STANDARD-METHOD: (precompile-form body nil)

File:
1 edited

Legend:

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

    r5028 r5029  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: clos.lisp,v 1.14 2003-12-08 20:06:08 piso Exp $
     4;;; $Id: clos.lisp,v 1.15 2003-12-08 20:54:25 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    977977    (setf (method-qualifiers method) qualifiers)
    978978    (setf (method-specializers method) specializers)
    979     (setf (method-body method) body)
     979    (setf (method-body method) (precompile-form body nil))
    980980    (setf (method-environment method) environment)
    981981    (setf (method-generic-function method) nil)
     
    12851285        (flet ((call-next-method (&rest cnm-args)
    12861286                                 (if (null next-emfun)
    1287                                      (error "no next method for the generic function ~S"
     1287                                     (error "no next method for generic function ~S"
    12881288                                            (method-generic-function ',method))
    12891289                                     (funcall next-emfun (or cnm-args args))))
Note: See TracChangeset for help on using the changeset viewer.