Changeset 11136


Ignore:
Timestamp:
02/15/07 14:05:08 (14 years ago)
Author:
piso
Message:

(defmethod make-load-form ((object trace-info) ...

File:
1 edited

Legend:

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

    r11033 r11136  
    11;;; trace.lisp
    22;;;
    3 ;;; Copyright (C) 2003-2006 Peter Graves
    4 ;;; $Id: trace.lisp,v 1.16 2006-03-21 15:26:55 piso Exp $
     3;;; Copyright (C) 2003-2007 Peter Graves
     4;;; $Id: trace.lisp,v 1.17 2007-02-15 14:05:08 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(export 'untraced-function) ;; For FIND-GENERIC-FUNCTION in clos.lisp.
    2323
    24 (require 'format)
     24(require "FORMAT")
     25
     26(require "CLOS")
    2527
    2628(defvar *trace-info-hashtable* (make-hash-table :test #'equal))
    2729
    2830(defstruct trace-info name untraced-function breakp)
     31
     32(defmethod make-load-form ((object trace-info) &optional environment)
     33   (make-load-form-saving-slots object :environment environment))
    2934
    3035(defvar *trace-depth* 0)
Note: See TracChangeset for help on using the changeset viewer.