Skip to content
Snippets Groups Projects
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
No related branches found
No related tags found
No related merge requests found
...@@ -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)
......
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