Skip to content
Snippets Groups Projects
Commit 3a627089 authored by ram's avatar ram
Browse files

Flushed some old UNIX-PIPE package hacks.

Made GC notify be "." only when not *INTERACTIVE*.
parent 8d7abc54
No related branches found
No related tags found
No related merge requests found
...@@ -65,10 +65,7 @@ ...@@ -65,10 +65,7 @@
(zap-sym "CONCAT-PNAMES" "LISP") (zap-sym "CONCAT-PNAMES" "LISP")
(zap-sym "ARG" "LISP") (zap-sym "ARG" "LISP")
(zap-sym "VAR" "LISP") (zap-sym "VAR" "LISP")
(zap-sym "ONCE-ONLY" "COMPILER") (zap-sym "ONCE-ONLY" "COMPILER"))
(zap-sym "UNIX-PIPE" "COMPILER")
(zap-sym "MAKE-UNIX-PIPE" "MACH")
(zap-sym "UNIX-PIPE-P" "MACH"))
#-new-compiler #-new-compiler
(let ((sym (find-symbol "%CHARACTER-TYPE" (find-package "SYSTEM")))) (let ((sym (find-symbol "%CHARACTER-TYPE" (find-package "SYSTEM"))))
...@@ -83,8 +80,7 @@ ...@@ -83,8 +80,7 @@
(export '(info clear-info define-info-class define-info-type)) (export '(info clear-info define-info-class define-info-type))
#-new-compiler #-new-compiler
(export '(ignorable truly-the maybe-inline)) (export '(ignorable truly-the maybe-inline))
#-new-compiler
(export '(unix-pipe make-unix-pipe unix-pipe-p))
#-new-compiler #-new-compiler
(export '(lisp::with-compilation-unit lisp::debug-info) "LISP") (export '(lisp::with-compilation-unit lisp::debug-info) "LISP")
...@@ -212,17 +208,6 @@ ...@@ -212,17 +208,6 @@
#-new-compiler #-new-compiler
(setq lisp::*maximum-interpreter-error-checking* nil) (setq lisp::*maximum-interpreter-error-checking* nil)
(setq *bytes-consed-between-gcs* 1500000)
(setq *gc-notify-before*
#'(lambda (&rest foo)
(declare (ignore foo))
(write-char #\. *terminal-io*)
(force-output *terminal-io*)))
(setq *gc-notify-after* #'list)
;;;; Compile utility: ;;;; Compile utility:
...@@ -231,6 +216,22 @@ ...@@ -231,6 +216,22 @@
(defvar *interactive* nil) ; Batch compilation mode? (defvar *interactive* nil) ; Batch compilation mode?
(defvar *new-compile* t) ; Use new compiler? (defvar *new-compile* t) ; Use new compiler?
(setq *bytes-consed-between-gcs* 1500000)
(setq *gc-notify-before*
#'(lambda (&rest foo)
(cond (*interactive*
(apply #'lisp::default-gc-notify-before foo))
(t
(write-char #\. *terminal-io*)
(force-output *terminal-io*)))))
(setq *gc-notify-after*
#'(lambda (&rest foo)
(when *interactive*
(apply #'lisp::default-gc-notify-after foo))))
(defvar *log-file* nil) (defvar *log-file* nil)
(defvar *last-file-position*) (defvar *last-file-position*)
(defvar *compiled-files* (make-hash-table :test #'equal)) (defvar *compiled-files* (make-hash-table :test #'equal))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment