[Phemlock-cvs] CVS update: phemlock/src/core/hemlock-ext.lisp phemlock/src/core/line.lisp phemlock/src/core/rompsite.lisp phemlock/src/core/search1.lisp

[Christophe Rhodes]

Update of /project/phemlock/cvsroot/phemlock/src/core
In directory common-lisp.net:/tmp/cvs-serv9186/src/core

Modified Files:
	hemlock-ext.lisp line.lisp rompsite.lisp search1.lisp 
Log Message:
Make clim-hemlock basically work on sbcl -- mostly build fixes from Hannu
Koivisto.

* don't declaim or declare stuff in CL special;
* classes come before methods specializing on them;
* clim-sys: not mp:

Date: Wed Dec 15 13:16:47 2004
Author: crhodes

Index: phemlock/src/core/hemlock-ext.lisp
diff -u phemlock/src/core/hemlock-ext.lisp:1.2 phemlock/src/core/hemlock-ext.lisp:1.3
--- phemlock/src/core/hemlock-ext.lisp:1.2	Fri Jul  9 17:41:19 2004
+++ phemlock/src/core/hemlock-ext.lisp	Wed Dec 15 13:16:45 2004
@@ -76,8 +76,6 @@
 
 (defvar *object-set-event-handler-print* nil)
 
-(declaim (declaration values))
-
 (defun object-set-event-handler (display &optional (timeout 0))
   "This display event handler uses object sets to map event windows cross
    event types to handlers.  It uses XLIB:EVENT-CASE to bind all the slots


Index: phemlock/src/core/line.lisp
diff -u phemlock/src/core/line.lisp:1.1 phemlock/src/core/line.lisp:1.2
--- phemlock/src/core/line.lisp:1.1	Fri Jul  9 17:00:36 2004
+++ phemlock/src/core/line.lisp	Wed Dec 15 13:16:45 2004
@@ -7,7 +7,7 @@
 (in-package :hemlock-internals)
 
 #+CMU (ext:file-comment
-  "$Header: /project/phemlock/cvsroot/phemlock/src/core/line.lisp,v 1.1 2004/07/09 15:00:36 gbaumann Exp $")
+  "$Header: /project/phemlock/cvsroot/phemlock/src/core/line.lisp,v 1.2 2004/12/15 12:16:45 crhodes Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -139,7 +139,7 @@
 ;;;
 #+buffered-lines
 (defmacro %set-line-chars (line chars)
-  `(setf (line-%chars ,line) ,chars))
+  `(setf (line-%chars ,line) ,chars)) ; EW: CHARS can be a "tick".
 
 
 ;;; Line-Signature  --  Public
@@ -187,6 +187,14 @@
 	  (length (the simple-string (line-%chars ,line))))))
 
 ;; $Log: line.lisp,v $
+;; Revision 1.2  2004/12/15 12:16:45  crhodes
+;; Make clim-hemlock basically work on sbcl -- mostly build fixes from Hannu
+;; Koivisto.
+;;
+;; * don't declaim or declare stuff in CL special;
+;; * classes come before methods specializing on them;
+;; * clim-sys: not mp:
+;;
 ;; Revision 1.1  2004/07/09 15:00:36  gbaumann
 ;; Let us see if this works.
 ;;


Index: phemlock/src/core/rompsite.lisp
diff -u phemlock/src/core/rompsite.lisp:1.2 phemlock/src/core/rompsite.lisp:1.3
--- phemlock/src/core/rompsite.lisp:1.2	Sat Sep  4 01:06:51 2004
+++ phemlock/src/core/rompsite.lisp	Wed Dec 15 13:16:45 2004
@@ -8,7 +8,7 @@
 
 #+CMU
 (ext:file-comment
-  "$Header: /project/phemlock/cvsroot/phemlock/src/core/rompsite.lisp,v 1.2 2004/09/03 23:06:51 abakic Exp $")
+  "$Header: /project/phemlock/cvsroot/phemlock/src/core/rompsite.lisp,v 1.3 2004/12/15 12:16:45 crhodes Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -219,7 +219,6 @@
 ;;; Stop flaming from compiler due to CLX macros expanding into illegal
 ;;; declarations.
 ;;;
-(declaim (declaration values))
 (declaim (special *default-font-family*))
 
 ;;; font-map-size should be defined in font.lisp, but SETUP-FONT-FAMILY would


Index: phemlock/src/core/search1.lisp
diff -u phemlock/src/core/search1.lisp:1.1 phemlock/src/core/search1.lisp:1.2
--- phemlock/src/core/search1.lisp:1.1	Fri Jul  9 17:00:36 2004
+++ phemlock/src/core/search1.lisp	Wed Dec 15 13:16:45 2004
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 #+CMU (ext:file-comment
-  "$Header: /project/phemlock/cvsroot/phemlock/src/core/search1.lisp,v 1.1 2004/07/09 15:00:36 gbaumann Exp $")
+  "$Header: /project/phemlock/cvsroot/phemlock/src/core/search1.lisp,v 1.2 2004/12/15 12:16:45 crhodes Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -34,7 +34,6 @@
 (defun %print-search-pattern (object stream depth)
   (let ((*print-level* (and *print-level* (- *print-level* depth)))
 	(*print-case* :downcase))
-    (declare (special *print-level* *print-case*))
     (write-string "#<Hemlock " stream)
     (princ (search-pattern-direction object) stream)
     (write-char #\space stream)