Skip to content
Snippets Groups Projects
  1. Jun 18, 2003
    • 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
  2. Jun 17, 2003
  3. Jun 16, 2003
  4. 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
  5. Jun 14, 2003
  6. Jun 13, 2003
  7. Jun 12, 2003
  8. Jun 11, 2003
  9. Jun 10, 2003
    • toy's avatar
      * code/filesys.lisp (filesys-init): The version component of · 0376f352
      toy authored
      	*default-pathname-defaults* changed from :newest to :unspecific,
      	so merging doesn't automatically create versioned files.
      
      	(extract-name-type-and-version): When no explicit version is given
      	in a namestring, return version NIL instead of :NEWEST.
      0376f352
    • toy's avatar
      Some changes from Paul Foley: · 842ce4c2
      toy authored
      o Fix a number of spelling errors.
      o Add EXT:PURGE-FILES (hmm, should that be renamed to
        purge-backup-files?) to delete old versions of files.
      o Opening a file with :if-exists :append shouldn't set the Unix append
        flag, else you can't seek back to a point before you started
        appending. (Actually from Rudi Schlatte.)
      o Fix a bug in logical pathname parsing.
      o Fix FASL-file versioning so we don't create versioned fasl files.
      842ce4c2
    • gerd's avatar
      *** empty log message *** · a4aed282
      gerd authored
      a4aed282
    • gerd's avatar
      *** empty log message *** · a179c663
      gerd authored
      a179c663
    • gerd's avatar
      Class redefinition and proper class names. Found by Paul Dietz. · 44ec977b
      gerd authored
      	* src/pcl/std-class.lisp (ensure-class): Redefine a class
      	only if the specified name is the proper name of the class.
      44ec977b
  10. Jun 08, 2003
    • gerd's avatar
      Ease disassembling closures and funcallable instances. · 832cd490
      gerd authored
      	From Alexey Dejneka in SBCL.
      
      	* src/compiler/disassem.lisp (fun-address): Deal with closures
      	and funcallable instances.
      832cd490
    • gerd's avatar
      *** empty log message *** · 1a939f78
      gerd authored
      1a939f78
    • gerd's avatar
      Apply type declarations to special variables. The example · 0939bea0
      gerd authored
      	(declaim (optimize (speed 3) (debug 0) (safety 0)))
              (defparameter x 10)
              (defun df-square (x)
              (declare (type double-float x))
                (* x x))
      
      	used to print a long list of optimization notes because the
      	double-float declaration for X was effectively swept under the
      	carpet.  From Alexey Dejneka in SBCL.
      
      	* src/compiler/ir1tran.lisp (process-type-declaration):
      	Apply type declaration to special variable bindings as well.
      0939bea0
    • toy's avatar
      Fix typo. · df209524
      toy authored
      df209524
  11. Jun 07, 2003
    • toy's avatar
      More simple-streams updates from Paul Foley: · d03aa23c
      toy authored
      o An update to fix Gerd's complaint about :simple-streams being on
        *features*
      o Corrects a few bugs
      o Renames all the strategy functions
      o Gets rid of DEVICE-EXTEND (Duane Rettig tells me it's going away in
        the next ACL release)
      o A start on getting stream& composition working.
      d03aa23c
    • gerd's avatar
      Use int64-t for off-t on BSDs for large file support. · 8cb97ea1
      gerd authored
      	Check return value of syscalls for -1 instead of < 0.
      
      	* src/code/unix.lisp (quad-t) [#+bsd]: Removed.
      	(int64-t, u-int64-t): Added.
      	(off-t): Define as int64-t for BSDs.
      	(file-offset): New deftype; (signed-byte 64) for BSDs,
      	(signed-byte 32) otherwise.
      	(unix-mmap): Remove FreeBSD version.  Move down after the
      	definition of the syscall macro.
      	(%syscall): New macro.  Test return value for being -1 instead
      	of being < 0.
      	(syscall): Use it.
      	(off-t-syscall): New macro.
      	(unix-lseek): Remove BSD-specific version.  Use off-t-syscall.
      8cb97ea1
  12. Jun 06, 2003
Loading