Changeset 15582


Ignore:
Timestamp:
Jan 13, 2013, 3:29:45 PM (6 years ago)
Author:
gb
Message:

Remove the SETF package.

Exploit its absence hen processing symbols in COMPILE-FILE: only
consider symbols whose names begin and end with parens to be
potential SETF function names.

Change FASL version for x8632, x8664. Will need new binaries
to bootstrap; coming soon.

Location:
trunk/source
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/X86/X8632/x8632-arch.lisp

    r15504 r15582  
    13371337(defconstant arg-check-trap-pc-limit 7)
    13381338
    1339 (defconstant fasl-version #x5f)
    1340 (defconstant fasl-max-version #x5f)
    1341 (defconstant fasl-min-version #x5e)
     1339(defconstant fasl-version #x60)
     1340(defconstant fasl-max-version #x60)
     1341(defconstant fasl-min-version #x60)
    13421342(defparameter *image-abi-version* 1038)
    13431343
  • trunk/source/compiler/X86/X8664/x8664-arch.lisp

    r15504 r15582  
    13521352(defconstant arg-check-trap-pc-limit 7)
    13531353
    1354 (defconstant fasl-version #x5f)
    1355 (defconstant fasl-max-version #x5f)
    1356 (defconstant fasl-min-version #x5e)
     1354(defconstant fasl-version #x60)
     1355(defconstant fasl-max-version #x60)
     1356(defconstant fasl-min-version #x60)
    13571357(defparameter *image-abi-version* 1038)
    13581358
  • trunk/source/level-1/l1-aprims.lisp

    r15580 r15582  
    267267(defvar *setf-names-lock* (make-lock))
    268268(defun setf-function-name (sym)
    269   "Returns the symbol in the SETF package that holds the binding of (SETF sym)"
     269  "Returns the uninterned symbol that holds the binding of (SETF sym)"
    270270   (or (gethash sym %setf-function-names%)
    271271       (with-lock-grabbed (*setf-names-lock*)
    272272         (or (gethash sym %setf-function-names%)
    273              (let* ((setf-package-sym (construct-setf-function-name sym)))
    274                (setf (gethash setf-package-sym %setf-function-name-inverses%) sym
    275                      (gethash sym %setf-function-names%) setf-package-sym))))))
     273             (let* ((setf-function-symbol (construct-setf-function-name sym)))
     274               (setf (gethash setf-function-symbol %setf-function-name-inverses%) sym
     275                     (gethash sym %setf-function-names%) setf-function-symbol))))))
    276276
    277277(defun existing-setf-function-name (sym)
     
    286286                     
    287287
    288 (defconstant *setf-package* (or (find-package "SETF")
    289                                 (make-package
    290                                  "DEPRECATED SETF PACKAGE"
    291                                  :nicknames '("SETF") :use nil :external-size 1)))
     288
    292289
    293290(defun construct-setf-function-name (sym)
  • trunk/source/lib/nfcomp.lisp

    r15579 r15582  
    14591459  (or (cdr (assoc sym *fasl-setf-name-alias-alist*))
    14601460      (and create
    1461            (let* (#+notyet (pname (symbol-name sym))
    1462                   #+notyet (namelen (length pname))
     1461           (let* ((pname (symbol-name sym))
     1462                  (namelen (length pname))
    14631463                  (setf-for
    1464                    (and #+notyet (> namelen 2)
    1465                         #+notyet (eql (schar pname 0) #\()
    1466                         #+notyet (eql (schar pname (1- namelen)) #\))
     1464                   (and (> namelen 2)
     1465                        (eql (schar pname 0) #\()
     1466                        (eql (schar pname (1- namelen)) #\))
    14671467                        (gethash sym %setf-function-name-inverses%))))
    14681468           (when setf-for
Note: See TracChangeset for help on using the changeset viewer.