Permalink
Browse files

fix: for clozure cl.

  • Loading branch information...
1 parent 0fab0cb commit 89b676c9b81b8104310ad6ea7c7212696d3ee755 @g000001 committed May 14, 2013
Showing with 14 additions and 7 deletions.
  1. +2 −2 fsa/fsa-basics.lisp
  2. +7 −3 util/cl-extensions.lisp
  3. +2 −1 util/hmm.lisp
  4. +3 −1 util/io-builtin.lisp
View
@@ -413,8 +413,8 @@
#+mcl(defmethod class-slots (class) (class-instance-slots class))
-(defmethod make-load-form ((fsa fsa) #+(or sgi cmu17 sbcl allegro) &optional
- #+(or sgi cmu17 sbcl allegro) env)
+(defmethod make-load-form ((fsa fsa) #+(or sgi cmu17 ansi-cl) &optional
+ #+(or sgi cmu17 ansi-cl) env)
#+cmu17 (declare (ignore env))
(multiple-value-bind (form fixups)
#+cmu17
View
@@ -263,7 +263,7 @@
#+mcl
(eval-when (compile eval load) (import 'ccl:class-precedence-list))
-#+(or (and allegro (version>= 4)) lucid pcl mcl sbcl)
+#+(or (and allegro (version>= 4)) lucid pcl mcl sbcl ccl)
(defun get-qua-internal (generic-function class superclass)
;; This assumes standard method combination, one argument generic
;; functions, and primary methods only.
@@ -286,7 +286,7 @@
(clos::make-effective-method-function
generic-function
(clos::compute-effective-method-body generic-function methods))
- #+mcl
+ #+(or mcl ccl)
(ccl::compute-effective-method
generic-function
(ccl::generic-function-method-combination generic-function)
@@ -429,7 +429,7 @@
;; No fix needed for franz 4.x
-#+sbcl
+#+(or sbcl ccl)
(defmethod file-length ((stream stream))
(cl:file-length stream))
@@ -438,6 +438,10 @@
(defmethod file-length ((stream string-stream))
(sb-impl::string-input-stream-end stream))
+#+ccl
+(defmethod file-length ((stream string-stream))
+ (ccl::stream-length stream))
+
#+mcl
(defmethod file-length ((stream string-stream) &optional new)
View
@@ -158,8 +158,9 @@
#+lucid system:float-negative-infinity
#+cmu extensions:single-float-negative-infinity
#+mcl (ccl::make-float-from-fixnums 0 0 2047 -1)
+ #+ccl -1E++0
#+sbcl sb-ext:single-float-negative-infinity
- #-(or allegro lucid cmu mcl sbcl)
+ #-(or ccl allegro lucid cmu mcl sbcl)
(error "Don't know how to represent -infinity."))
(defstruct (hmm-est
View
@@ -238,7 +238,9 @@
(defvar *lower-case* (make-string char-code-limit))
(dotimes (i char-code-limit)
- (setf (schar *lower-case* i) (char-downcase (code-char i))))
+ #-ccl (setf (schar *lower-case* i) (char-downcase (code-char i)))
+ #+ccl (let ((c (code-char i)))
+ (and c (setf (schar *lower-case* i) (char-downcase c)))))
(defun simple-stringp-order (s1 s2)
(declare (simple-string s1 s2) #.tdb:*highly-optimized*)

0 comments on commit 89b676c

Please sign in to comment.