/usr/share/common-lisp/source/lml2/utils.lisp is in cl-lml2 1.6.6-4.
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 | ;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
;;;; Name: utils.lisp
;;;; Purpose: General purpose utilities
;;;; Author: Kevin M. Rosenberg
;;;; Date Started: June 2002
;;;;
;;;; $Id$
;;;;
;;;; This file, part of LML2, is copyrighted and open-source software.
;;;; Rights of modification and redistribution are in the LICENSE file.
;;;;
;;;; *************************************************************************
(in-package #:lml2)
(defun lml-quit (&optional (code 0))
"Function to exit the Lisp implementation."
(kmrcl:quit code))
(defun lml-cwd ()
"Returns the current working directory."
(kmrcl:cwd))
(defmacro fformat (stream control-string &rest args)
(if stream
`(funcall (formatter ,control-string) ,stream ,@args)
`(format nil ,control-string ,@args)))
|