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)