File: hemlock-package-fix.patch

package info (click to toggle)
cmucl 21d-1
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 45,328 kB
  • sloc: lisp: 378,758; ansic: 30,673; asm: 2,977; sh: 1,417; makefile: 357; csh: 31
file content (35 lines) | stat: -rw-r--r-- 929 bytes parent folder | download | duplicates (3)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Description: As we have hemlock as a package to load we need a separate package file
Author: Peter Van Eynde <pvaneynd@debian.org>
Forwarded: not needed


--- /dev/null
+++ cmucl/src/hemlock/package.lisp
@@ -0,0 +1,27 @@
+;;; -*- Mode: lisp -*-
+
+(in-package :cl-user)
+
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (when (find-package :ed)
+    (delete-package
+     (find-package :ed)))
+  
+  (when (find-package :hi)
+    (delete-package
+     (find-package :hi))))
+
+(make-package "HEMLOCK-INTERNALS"
+              :nicknames '("HI")
+              :use '("LISP" "EXTENSIONS" "SYSTEM"))
+
+(make-package "HEMLOCK"
+              :nicknames '("ED")
+              :use '("LISP" "HEMLOCK-INTERNALS" "EXTENSIONS" "SYSTEM"))
+;;;
+(export 'c::compile-from-stream (find-package "C"))
+
+(defvar *byte-compile* #+small t #-small :maybe)
+
+(pushnew :command-bits *features*)
+(pushnew :buffered-lines *features*)