"Upcases the string, except in Allegro-CL's case-sensitive-lower mode, in which case the string is not modified."
#-allegro(string-upcasestring)
#+allegro(ecaseexcl:*current-case-mode*
(:case-insensitive-upper(string-upcasestring))
(:case-sensitive-lowerstring)))
(defmacrow-o-interrupts(&bodybody)
(formatt"~&NOTE: from glisp:w-o-interrupts: without-interrupts is deprecated in multiprocessing Lisp - using progn - replace usage with something else e.g. process-locks.~%")
#-(orallegrolispworkscmusbclcclabclclisp)
(error"Need implementation for without-interrupts for currently running lisp.~%")
`(#+allegroprogn;; excl:without-interrupts
#+(orlispworkscclabcleclclisp)progn
#+cmusystem:without-interrupts
#+sbclsb-sys:without-interrupts
,@body))
#-(orallegrolispworks)
(warn"Need implementation for xref-off for the currently running lisp.~%")
#-(orallegrolispworks)
(defunxref-off(&optionalinclude-source-info?)
(declare(ignoreinclude-source-info?))
(warn"Need implementation for xref-off for the currently running lisp.~%"))
#+(orallegrolispworks)
(defunxref-off(&optionalinclude-source-info?)
(wheninclude-source-info?
(setq#+allegroexcl:*load-source-file-info*
#+lispworkslw:*record-source-files*
nil)
(setq#+allegroexcl:*record-source-file-info*
#+lispworkscompiler:*source-file-recording*
nil))
(setq#+allegroexcl:*load-xref-info*
#+lispworkscompiler:*load-xref-info*
nil)
(setq#+allegroexcl:*record-xref-info*
#+lispworkscompiler:*produce-xref-info*
nil))
#-(orallegrolispworks)
(warn"Need implementation for xref-off for the currently running lisp.~%")
#-(orallegrolispworks)
(defunxref-on(&optionalinclude-source-info?)
(declare(ignoreinclude-source-info?))
(warn"Need implementation for xref-off for the currently running lisp.~%"))