Skip to content
Snippets Groups Projects
  1. Jul 01, 2003
  2. Jun 30, 2003
    • gerd's avatar
      Make circular constant lists dumpable by checking for the list in · 713b6f33
      gerd authored
      	the equal hash-table only if the list is definitely non-circular.
      	Don't check for it being definitely circular because that slows
      	down a full CMUCL build by about 16%.
      
      	* src/compiler/dump.lisp (non-circular-list-p): New function.
      	(dump-non-immediate-object): Use it.
      	(circular-cons-p): Removed.
      713b6f33
  3. Jun 29, 2003
  4. Jun 27, 2003
  5. Jun 26, 2003
    • toy's avatar
      From Paul Foley: · bfbb8fd1
      toy authored
      Non-simple-streams-related changes:
      
      * Stop commands which go through invoke-command-interactive from
        affecting the history variables.
      
      * Fix some typos in comments
      
      * When the GC closes a lost stream, revert to original contents
      
      * Replace #+nil with #+(or) in unix*.lisp
        [NIL is a potentially valid feature name]
      
      
      Simple-streams-related changes:
      
      * Teach reader to handle simple-streams
      
      * Add missing package prefixes in OPEN
      
      * Add unix:unix-msync for force-output on mmapped files
      
      * Add placeholder documentation
      
      * Numerous changes in simple-streams implementation
      
      * Add "external-formats" directory for external formats
      
      
      Note: :BIG-ENDIAN or :LITTLE-ENDIAN should be put on *features*
      bfbb8fd1
  6. Jun 20, 2003
  7. Jun 18, 2003
    • gerd's avatar
      Add (SETF WEAK-POINTER-VALUE). From Paul Foley on cmucl-imp, · 72adccb1
      gerd authored
      	2003-06-17.
      
      	* src/compiler/generic/objdef.lisp (weak-pointer): Add
      	setters for value and broken.
      	* src/code/weak.lisp (setf weak-pointer-value)
      	(c::%set-weak-pointer-value, c::%set-weak-pointer-value):
      	New functions.
      72adccb1
    • emarsden's avatar
    • gerd's avatar
      * src/tools/setup.lisp, src/tools/worldcom.lisp: Move the setting · 46ca5ac1
      gerd authored
      	of *make-condition-accessor-methods* to setup.lisp, so that it
      	applies to genesis-c-header-file-changed.  This has to be done
      	because between the definition of genesis-c-header-file-changed in
      	setup.lisp and worldbuild.lisp/genesis, where the condition is
      	signaled, PCL is eradicated.
      46ca5ac1
    • gerd's avatar
      * src/tools/pclcom.lisp: Delete the symbol · 445f3f1a
      gerd authored
      	reinitialize-structure-class from kernel::*defstruct-hooks*
      	instead of its function definition.
      445f3f1a
    • gerd's avatar
    • gerd's avatar
      Remove package nicknames USER from COMMON-LISP-USER. Add a new · b4f2c7c7
      gerd authored
      	package COMMON-LISP which LISP uses, so that COMMON-LISP no longer
      	has the non-ANSI nickname LISP.
      
      	To bootstrap, use boot13.lisp as target:bootstrap.lisp with pmai's
      	build scripts, and do a full compile.
      
      	* src/bootfiles/18e/boot13.lisp: Change for all the package
      	changes.
      
      	* src/code/exports.lisp: New package common-lisp,
      	which lisp uses.
      
      	* src/tools/worldload.lisp:
      	* src/tools/setup.lisp: Use cl-user instead of user.
      	Use lisp:: instead of cl::.
      
      	* src/tools/worldcom.lisp:
      	* src/tools/snapshot-update.lisp:
      	* src/tools/pclcom.lisp:
      	* src/tools/mk-lisp:
      	* src/tools/hemcom.lisp:
      	* src/tools/config.lisp:
      	* src/tools/comcom.lisp:
      	* src/tools/clxcom.lisp:
      	* src/tools/clmcom.lisp:
      	* src/pcl/defsys.lisp:
      	* src/motif/lisp/initial.lisp:
      	* src/interface/initial.lisp:
      	* src/hemlock/lispmode.lisp (setup-lisp-mode):
      	Use cl-user instead of user.
      
      	* src/code/save.lisp (assert-user-package):
      	* src/code/print.lisp (%with-standard-io-syntax): Find
      	cl-user package instead of user.
      
      	* src/code/package.lisp (package-locks-init): Add lisp.
      	(package-init): Don't add user nickname to cl-user.
      
      	* src/code/ntrace.lisp (*trace-encapsulate-package-names*):
      	Add common-lisp.
      
      	* src/code/hash.lisp (toplevel):
      	* src/code/hash-new.lisp (toplevel): Use in-package :lisp
      	instead of :common-lisp.
      
      	* src/code/float-trap.lisp (sigfpe-handler): Don't
      	qualify floating-point-inexact with ext:.
      
      	* src/pcl/simple-streams/strategy.lisp (sc):
      	* src/pcl/simple-streams/null.lisp (null-read-char):
      	* src/pcl/simple-streams/internal.lisp (allocate-buffer)
      	(free-buffer):
      	* src/pcl/simple-streams/impl.lisp (%check, %read-line)
      	(%peek-char, %read-byte):
      	* src/pcl/simple-streams/file.lisp (open-file-stream)
      	(device-close):
      	* src/pcl/simple-streams/classes.lisp (simple-stream)
      	(device-close):
      	* src/pcl/macros.lisp (toplevel):
      	* src/pcl/braid.lisp (lisp::sxhash-instance):
      	* src/pcl/env.lisp (toplevel):
      	* src/compiler/generic/objdef.lisp (symbol-hash):
      	* src/code/stream.lisp (read-sequence, write-sequence):
      	* src/code/macros.lisp (defmacro, deftype):
      	* src/code/eval.lisp (interpreted-function):
      	* src/code/defstruct.lisp (defstruct):
      	* src/code/debug.lisp (debug-eval-print): Use lisp:: instead
      	of cl::.
      b4f2c7c7
  8. Jun 17, 2003
  9. Jun 16, 2003
  10. Jun 15, 2003
    • gerd's avatar
      SLOT-VALUE, (SETF SLOT-VALUE), SLOT-BOUNDP, SLOT-MAKUNBOUND not · 4faa083c
      gerd authored
      	returning values specified by the standard when
      	SLOT-MISSING/SLOT-UNBOUND are called and return.  Found by Paul
      	Dietz.
      
      	* src/pcl/std-class.lisp (compute-effective-slot-definition):
      	Return slot-unbound's primary value.
      
      	* src/pcl/slots.lisp (slot-value): Return slot-missing's primary
      	value.
      	(set-slot-value): Always return the new value.
      	(slot-boundp): Return a boolean equivalent of slot-missing's
      	primary value.
      	(slot-makunbound): Always return the instance.
      	(slot-value-using-class): Return slot-unbound's primary value.
      	(slot-unbound-internal): Likewise.
      
      	* src/pcl/slots-boot.lisp (ensure-accessor): Return slot-missing's
      	primary value for slot-value, a boolean equivalent of its primary
      	value for slot-boundp, and always return the value for setf.
      	(accessor-set-slot-value): Always return the new value.
      	(make-optimized-std-reader-method-function): Return slot-unbound's
      	primary value.
      	(make-optimized-std-slot-value-using-class-method-function)
      	(make-internal-reader-method-function): Likewise.
      
      	* src/pcl/method-slot-access-optimization.lisp
      	(inline-slot-unbound): Return slot-unbound's primary value.
      4faa083c
    • gerd's avatar
      e4915983
  11. Jun 14, 2003
  12. Jun 13, 2003
  13. Jun 12, 2003
  14. Jun 11, 2003
Loading