From 105871a09ba2d92ea65e0d505df419bbcb5a0065 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Tue, 27 Jul 1993 13:29:44 +0000 Subject: [PATCH] Add Herald display item. Add :MOTIF feature. Add standard file header. --- interface/initial.lisp | 19 +++++++++++++++++-- 1 file changed, 17 insertions(+), 2 deletions(-) diff --git a/interface/initial.lisp b/interface/initial.lisp index 1dacb1207..4762d7aed 100644 --- a/interface/initial.lisp +++ b/interface/initial.lisp @@ -1,8 +1,23 @@ -;;;; -*- Mode: Lisp ; Package: User -*- +;;; -*- Package: User -*- +;;; +;;; ********************************************************************** +;;; This code was written as part of the CMU Common Lisp project at +;;; Carnegie Mellon University, and has been placed in the public domain. +;;; If you want to use this code or any part of CMU Common Lisp, please contact +;;; Scott Fahlman or slisp-group@cs.cmu.edu. +;;; +(ext:file-comment + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/interface/initial.lisp,v 1.2 1993/07/27 13:29:44 ram Exp $") +;;; +;;; ********************************************************************** ;;; - (in-package "USER") +(pushnew :motif *features*) + +(setf (getf ext:*herald-items* :motif) + `(" Motif toolkit and graphical debugger 1.0")) + (defpackage "INTERFACE" (:use "TOOLKIT" "LISP" "PCL" "EXTENSIONS" "KERNEL") (:export "*HEADER-FONT*" "*ITALIC-FONT*" "*ENTRY-FONT*" "*INTERFACE-STYLE*" -- GitLab