File: hemlock-package-fix.patch

package info (click to toggle)
cmucl 20c-2
  • links: PTS
  • area: main
  • in suites: wheezy
  • size: 42,524 kB
  • sloc: lisp: 358,331; ansic: 28,385; asm: 3,777; sh: 1,236; makefile: 366; csh: 31
file content (37 lines) | stat: -rw-r--r-- 1,099 bytes parent folder | download
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
36
37
Description: As we have hemlock as a package to load we need a seperate package file
Author: Peter Van Eynde <pvaneynd@debian.org>
Forwarded: not needed


Index: b/src/hemlock/package.lisp
===================================================================
--- /dev/null	1970-01-01 00:00:00.000000000 +0000
+++ b/src/hemlock/package.lisp	2011-12-06 09:05:40.656359825 +0000
@@ -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*)