Index: /trunk/ccl/hemlock/src/decls.lisp
===================================================================
--- /trunk/ccl/hemlock/src/decls.lisp	(revision 681)
+++ /trunk/ccl/hemlock/src/decls.lisp	(revision 681)
@@ -0,0 +1,68 @@
+(in-package :hemlock-internals)
+
+;;; Use #.*fast* for optimizations.
+
+(eval-when (compile eval load)
+  (defparameter *fast*
+    '(declare (optimize speed)))
+
+  (defparameter *fast*
+    '(declare)))
+
+
+;; Since the declaim form for functions looks clumsy and is
+;; syntax-wise different from defun, we define us a new declfun, which
+;; fixes this.
+
+(defmacro declfun (name lambda-list)
+  `(declaim (ftype (function
+                    ,(let ((q lambda-list)
+                           res)
+                          (do () ((or (null q)
+                                      (member (car q) '(&optional &rest &key))))
+                            (push 't res)
+                            (pop q))
+                          (when (eq (car q) '&optional)
+                            (push '&optional res)
+                            (pop q)
+                            (do () ((or (null q)
+                                        (member (car q) '(&rest &key))))
+                              (push 't res)))
+                          (when (eq (car q) '&rest)
+                            (push '&rest res)
+                            (pop q)
+                            (push 't res)
+                            (pop q))
+                          (when (eq (car q) '&key)
+                            (push '&key res)
+                            (pop q)
+                            (do () ((or (null q)
+                                        (member (car q) '(&allow-other-keys))))
+                              (push (list (intern (string (if (consp (car q))
+                                                              (if (consp (caar q))
+                                                                  (caaar q)
+                                                                  (caar q))
+                                                              (car q)))
+                                                  :keyword)
+                                          't)
+                                    res)
+                              (pop q)))
+                          (when (eq (car q) '&allow-other-keys)
+                            (push '&allow-other-keys res)
+                            (pop q))
+                          (reverse res))
+                    t)
+             ,name)))
+
+(declfun window-buffer (window))
+(declfun change-to-buffer (buffer))     ;filecoms.lisp
+
+(declfun hemlock::to-line-comment (mark start)) ;defined in comments.lisp used in lispbuf.lisp
+
+;;; Some special variables are forward-referenced, and we don't even
+;;; need to invent a new language to advise the compiler of that ...
+(declaim (special *mode-names* *current-buffer* *echo-area-buffer*
+		  *open-line* *left-open-pos* *right-open-pos*
+		  *line-cache-length* *open-chars* *the-sentinel*
+		  *in-the-editor* *buffer-list* *things-to-do-once*
+		  *gc-notify-before* *gc-notify-after*))