Changeset 8328


Ignore:
Timestamp:
01/05/05 00:38:00 (17 years ago)
Author:
piso
Message:

PROCESS-TOPLEVEL-FORM: bind *PRINT-CIRCLE* to NIL when writing out the form.

File:
1 edited

Legend:

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

    r8314 r8328  
    22;;;
    33;;; Copyright (C) 2004 Peter Graves
    4 ;;; $Id: compile-file.lisp,v 1.50 2004-12-30 18:30:08 piso Exp $
     4;;; $Id: compile-file.lisp,v 1.51 2005-01-05 00:38:00 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    187187    (let ((*print-fasl* t)
    188188          (*print-level* nil)
    189           (*print-length* nil))
     189          (*print-length* nil)
     190          (*print-circle* nil))
    190191      (if (eq (car form) 'IMPORT)
    191192          ;; Make sure package prefix is printed when symbols are imported.
Note: See TracChangeset for help on using the changeset viewer.