/usr/share/common-lisp/source/kmrcl/console.lisp is in cl-kmrcl 1.106-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 | ;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
;;;; Name: console.lisp
;;;; Purpose: Console interactiion
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Dec 2002
;;;;
;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;; and by onShore Development, Inc.
;;;;
;;;; KMRCL users are granted the rights to distribute and use this software
;;;; as governed by the terms of the Lisp Lesser GNU Public License
;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
;;;; *************************************************************************
(in-package #:kmrcl)
(defvar *console-msgs* t)
(defvar *console-msgs-types* nil)
(defun cmsg (template &rest args)
"Format output to console"
(when *console-msgs*
(setq template (concatenate 'string "~&;; " template "~%"))
(apply #'format t template args)))
(defun cmsg-c (condition template &rest args)
"Push CONDITION keywords into *console-msgs-types* to print console msgs
for that CONDITION. TEMPLATE and ARGS function identically to
(format t TEMPLATE ARGS) "
(when (or (member :verbose *console-msgs-types*)
(member condition *console-msgs-types*))
(apply #'cmsg template args)))
(defun cmsg-add (condition)
(pushnew condition *console-msgs-types*))
(defun cmsg-remove (condition)
(setf *console-msgs-types* (remove condition *console-msgs-types*)))
(defun fixme (template &rest args)
"Format output to console"
(setq template (concatenate 'string "~&;; ** FIXME ** " template "~%"))
(apply #'format t template args)
(values))
|