utils.lisp

   1 ;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
   2 ;;;; *************************************************************************
   3 ;;;; FILE IDENTIFICATION
   4 ;;;;
   5 ;;;; Name:          utils.lisp
   6 ;;;; Purpose:       General purpose utilities
   7 ;;;; Author:        Kevin M. Rosenberg
   8 ;;;; Date Started:  June 2002
   9 ;;;;
  10 ;;;; $Id$
  11 ;;;;
  12 ;;;; This file, part of LML2, is copyrighted and open-source software.
  13 ;;;; Rights of modification and redistribution are in the LICENSE file.
  14 ;;;;
  15 ;;;; *************************************************************************
  16
  17 (in-package #:lml2)
  18
  19
  20 (defun lml-quit (&optional (code 0))
  21   "Function to exit the Lisp implementation."
  22   (kmrcl:quit code))
  23
  24 (defun lml-cwd ()
  25   "Returns the current working directory."
  26   (kmrcl:cwd))
  27
  28 (defmacro fformat (stream control-string &rest args)
  29   (if stream
  30       `(funcall (formatter ,control-string) ,stream ,@args)
  31       `(format nil ,control-string ,@args)))
  32