Changeset 9113


Ignore:
Timestamp:
05/09/05 17:00:28 (16 years ago)
Author:
piso
Message:

PPRINT-NEWLINE: (sys:require-type kind '(MEMBER :LINEAR :MISER :FILL :MANDATORY))

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/pprint.lisp

    r9023 r9113  
    22;;;
    33;;; Copyright (C) 2004-2005 Peter Graves
    4 ;;; $Id: pprint.lisp,v 1.50 2005-04-30 20:01:44 piso Exp $
     4;;; $Id: pprint.lisp,v 1.51 2005-05-09 17:00:28 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    889889;; below is satisfied; otherwise, PPRINT-NEWLINE has no effect."
    890890(defun pprint-newline (kind &optional (stream *standard-output*))
     891  (sys:require-type kind '(MEMBER :LINEAR :MISER :FILL :MANDATORY))
    891892  (setq stream (sys:out-synonym-of stream))
    892893  (when (not (member kind '(:linear :miser :fill :mandatory)))
Note: See TracChangeset for help on using the changeset viewer.