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