Changeset 13302

Timestamp:

Dec 17, 2009, 6:53:50 AM (15 years ago)

Author:

gz

Message:

From trunk: interactive source-location tweaks (r13193, r13201)

Location:

branches/working-0711/ccl

Files:

• . (modified) (1 prop)
• level-1/l1-readloop.lisp (modified) (2 diffs)
• lib/source-files.lisp (modified) (1 diff)

branches/working-0711/ccl/level-1/l1-readloop.lisp

@@ -684 +684 @@
     (and defenv (eq 'compile-file (car (defenv.type defenv))))))
 
+;; This is EVAL.
 (defun cheap-eval (form)
-  (cheap-eval-in-environment form nil))
+  ;; Don't record source locations for explicit calls to EVAL.
+  (let ((*nx-source-note-map* nil))
+    (cheap-eval-in-environment form nil)))
 
 ; used by nfcomp too
@@ -816 +819 @@
                        (cheap-eval-in-environment protected-form env))
                    (progn-in-env cleanup-forms env env)))
-               (funcall (cheap-eval-function nil (cheap-eval-transform form `(lambda () (progn ,form))) env))))
+               (let ((fn (cheap-eval-function nil (cheap-eval-transform form `(lambda () (progn ,form))) env)))
+                 (funcall fn))))
             ((and (symbolp sym) (macro-function sym env))
              (cheap-eval-in-environment (cheap-eval-macroexpand-1 form env) env))

branches/working-0711/ccl/lib/source-files.lisp

@@ -47 +47 @@
 ;; This used to be weak, but the keys are symbols-with-definitions, so why bother.
 ;; Set a high rehash threshold because space matters more than speed here.
+;; Do not use lock-free hash tables, because they optimize reads at the expense of
+;; writes/rehashes.  Writes/rehashes affect file-compilation speed, which matters.
 (defvar %source-files% (make-hash-table :test #'eq
-                                        :size 13000
-                                        :rehash-threshold .95))
+                                        :size 14000
+                                        :rehash-size 1.8 ;; compensate for high threshold
+                                        :rehash-threshold .95
+                                        :lock-free nil))
+