1 ;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
2 ;;;; *************************************************************************
3 ;;;; FILE IDENTIFICATION
6 ;;;; Purpose: General purpose utilities
7 ;;;; Author: Kevin M. Rosenberg
8 ;;;; Date Started: June 2002
12 ;;;; This file, part of LML2, is copyrighted and open-source software.
13 ;;;; Rights of modification and redistribution are in the LICENSE file.
15 ;;;; *************************************************************************
20 (defun lml-quit (&optional (code 0))
21 "Function to exit the Lisp implementation."
25 "Returns the current working directory."
28 (defmacro fformat (stream control-string &rest args)
30 `(funcall (formatter ,control-string) ,stream ,@args)
31 `(format nil ,control-string ,@args)))