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

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

parent f2349e62
......@@ -33,9 +33,9 @@ Some constraints:
(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)))
(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)))
(defvar *trace-symbols*
......
;; -*- 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.
(defun dewindowize (x)
......
......@@ -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,
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."
(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))
(labels ((emit-string (x &optional (start 0) (end (length x)))
(when (< start end)
......
......@@ -102,8 +102,8 @@ by the underlying implementation's MAKE-PATHNAME and other primitives"
;; See CLHS make-pathname and 19.2.2.2.3.
;; This will be :unspecific if supported, or NIL if not.
(defparameter *unspecific-pathname-type*
#+(or abcl allegro clozure cmu gcl genera lispworks mkcl sbcl scl xcl) :unspecific
#+(or clisp ecl #|These haven't been tested:|# cormanlisp mcl) nil
#+(or abcl allegro clozure cmu genera lispworks mkcl sbcl scl xcl) :unspecific
#+(or clisp ecl gcl #|These haven't been tested:|# cormanlisp mcl) nil
"Unspecific type component to use with the underlying implementation's MAKE-PATHNAME")
(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