;; Commercial Software developed at private expense as specified in
;; DOD FAR Supplement 52.227-7013 (c) (1) (ii), as applicable.
;;
-;; $Id: imap.lisp,v 1.1 2002/10/10 00:12:45 kevin Exp $
+;; $Id$
;; Description:
;;
;; a condition either has a server-string or it has a
;; format-control string
(format stream "Post Office condition: ~s~%" identifier)
+ #+allegro
(if* (and (slot-boundp con 'excl::format-control)
(excl::simple-condition-format-control con))
then (apply #'format stream
(defun kwd-intern (string)
;; convert the string to the current preferred case
;; and then intern
- (intern (case excl::*current-case-mode*
+ (intern (case
+ #-allegro acl-compat.excl::*current-case-mode*
+ #+allegro excl::*current-case-mode*
((:case-sensitive-lower
:case-insensitive-lower) (string-downcase string))
(t (string-upcase string)))
(defun get-line-buffer (size)
;; get a buffer of at least size bytes
(setq size (min size (1- array-total-size-limit)))
- (:without-scheduling
+ (without-scheduling
(dolist (buff *line-buffers* (make-string size))
(if* (>= (length buff) size)
then ; use this one