Commit 8a550a04 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Slightly better GCL support, thanks to Camm Maguire. Still not there, though.

parent f2349e62
...@@ -33,9 +33,9 @@ Some constraints: ...@@ -33,9 +33,9 @@ Some constraints:
(in-package :asdf-test) (in-package :asdf-test)
(declaim (optimize (speed 2) (safety 3) #-(or allegro gcl genera) (debug 3) (declaim (optimize (speed 2) (safety #-gcl 3 #+gcl 0) #-(or allegro gcl genera) (debug 3)
#+(or cmu scl) (c::brevity 2))) #+(or cmu scl) (c::brevity 2)))
(proclaim '(optimize (speed 2) (safety 3) #-(or allegro gcl genera) (debug 3) (proclaim '(optimize (speed 2) (safety #-gcl 3 #+gcl 0) #-(or allegro gcl genera) (debug 3)
#+(or cmu scl) (c::brevity 2))) #+(or cmu scl) (c::brevity 2)))
(defvar *trace-symbols* (defvar *trace-symbols*
......
;; -*- Lisp -*- ;; -*- Lisp -*-
(declaim (optimize (debug 3) (safety 3))) (declaim (optimize (debug 3) (safety #-gcl 3 #+gcl 0)))
;; On Windows, normalize away CRLF into jut the unixy LF. ;; On Windows, normalize away CRLF into jut the unixy LF.
(defun dewindowize (x) (defun dewindowize (x)
......
...@@ -172,7 +172,7 @@ FROB them, that is to say, remove them if FROB is NIL, ...@@ -172,7 +172,7 @@ FROB them, that is to say, remove them if FROB is NIL,
replace by FROB if FROB is a STRING, or if FROB is a FUNCTION, replace by FROB if FROB is a STRING, or if FROB is a FUNCTION,
call FROB with the match and a function that emits a string in the output. call FROB with the match and a function that emits a string in the output.
Return a string made of the parts not omitted or emitted by FROB." Return a string made of the parts not omitted or emitted by FROB."
(declare (optimize (speed 0) (safety 3) (debug 3))) (declare (optimize (speed 0) (safety #-gcl 3 #+gcl 0) (debug 3)))
(let ((length (length string)) (stream nil)) (let ((length (length string)) (stream nil))
(labels ((emit-string (x &optional (start 0) (end (length x))) (labels ((emit-string (x &optional (start 0) (end (length x)))
(when (< start end) (when (< start end)
......
...@@ -102,8 +102,8 @@ by the underlying implementation's MAKE-PATHNAME and other primitives" ...@@ -102,8 +102,8 @@ by the underlying implementation's MAKE-PATHNAME and other primitives"
;; See CLHS make-pathname and 19.2.2.2.3. ;; See CLHS make-pathname and 19.2.2.2.3.
;; This will be :unspecific if supported, or NIL if not. ;; This will be :unspecific if supported, or NIL if not.
(defparameter *unspecific-pathname-type* (defparameter *unspecific-pathname-type*
#+(or abcl allegro clozure cmu gcl genera lispworks mkcl sbcl scl xcl) :unspecific #+(or abcl allegro clozure cmu genera lispworks mkcl sbcl scl xcl) :unspecific
#+(or clisp ecl #|These haven't been tested:|# cormanlisp mcl) nil #+(or clisp ecl gcl #|These haven't been tested:|# cormanlisp mcl) nil
"Unspecific type component to use with the underlying implementation's MAKE-PATHNAME") "Unspecific type component to use with the underlying implementation's MAKE-PATHNAME")
(defun make-pathname* (&rest keys &key (directory nil #+gcl2.6 directoryp) (defun make-pathname* (&rest keys &key (directory nil #+gcl2.6 directoryp)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment