From mboxrd@z Thu Jan  1 00:00:00 1970
From: kxn30@po.cwru.edu
To: guile-emacs@sourceware.cygnus.com
Subject: Re: Failure of compiling
Date: Tue, 12 Sep 2000 23:36:00 -0000
Message-id: <20000913153639I.saka@yugen.org>
References: <20000912231312P.saka@yugen.org> <m37l8h9wsa.fsf@indy.STUDENT.CWRU.Edu> <20000913131815Q.saka@yugen.org> <m366o028tj.fsf@indy.STUDENT.CWRU.Edu>
X-SW-Source: 2000-q3/msg00004.html

>>>>> In < m366o028tj.fsf@indy.STUDENT.CWRU.Edu > 
>>>>>	Keisuke Nishida <kxn30@po.cwru.edu> wrote:

> You'll need to add the following symbolic links:

>   /usr/lib/libgoopscore.so -> /usr/lib/libgoopscore.so.4.0.0
>   /usr/lib/libgoopscore.so.4 -> /usr/lib/libgoopscore.so.4.0.0
>   /usr/share/guile/oop/goops/libgoopscore.la -> /usr/lib/libgoopscore.la
>   /usr/share/guile/oop/goops/libgoopscore.so.4 -> /usr/lib/libgoopscore.so.4

Ok, I have added the links, then I got the messages with guile:

| $ guile
| guile> (use-modules (oop goops goopscore))
| ERROR: In expression (define-public <class> #<struct 401e0998:401e0998>):
| ERROR: Unbound variable: define-public
| ABORT: (unbound-variable)
| 
| Type "(backtrace)" to get more information or "(debug)" to enter the debugger.
| guile> (backtrace)
| 
| Backtrace:
|  2  [for-each #<procedure (module-name)> ((oop goops goopscore))]
|  3* [#<procedure (module-name)> (oop goops goopscore)]
|  4* (let (#) (or mod-iface #) (module-use! # mod-iface))
|  5* [resolve-interface (oop goops goopscore)]
|  6  (let ((module #)) (and module (module-public-interface module)))
|  7* [resolve-module (oop goops goopscore)]
|  8  (let ((full-name #)) (let (#) (if already # #)))
|     ...
|  9  (begin (if # #) (make-modules-in # full-name))
| 10* (if (or # #) (try-load-module name))
| 11  [try-load-module (oop goops goopscore)]
|     ...
| 12  [loop ...
| 13*  [#<procedure (modinfo)> (# # #)]
| 14   (if (equal? # modname) (begin # #) #f)
|      ...
| 15   (let ((mod #)) (save-module-excursion (lambda () # # ...)) #t)
| 16*  [save-module-excursion #<procedure ()>]
| 17   (let (# #) (dynamic-wind # thunk #))
| 18   [dynamic-wind #<procedure ()> #<procedure ()> #<procedure ()>]
| 19*  [#<procedure ()>]
| 20*  [dynamic-call # #]
| 21*  (define-public <class> #<struct 401e0998:401e0998>)

Now I get the following messages when building guile-emacs at last:

| ./temacs -batch -l loadup dump
| Loading loadup (source)...
| Using load-path (/home/saka/.rpm/BUILD/guile-emacs-0.5/lisp /usr/share/emacs/20.7/lisp)
| Loading byte-run...
| Loading subr...
| Loading version.el (source)...
| Loading map-ynp...
| Loading widget...
| Loading custom...
| Loading cus-start (source)...
| Loading international/mule...
| Loading international/mule-conf.el (source)...
| Invalid or duplicated element in argument: (coding-category-utf-16-be coding-category-utf-16-le coding-category-iso-8-1 coding-category-iso-8-2 coding-category-iso-7-tight coding-category-iso-7 coding-category-iso-7-else coding-category-iso-8-else coding-category-utf-8 coding-category-emacs-mule coding-category-raw-text coding-category-sjis coding-category-big5 coding-category-ccl coding-category-binary)
| make[1]: *** [emacs] Error 255
| make[1]: Leaving directory `/home/saka/.rpm/BUILD/guile-emacs-0.5/src'
| make: *** [all-recursive] Error 1

The following patch included in the MULE 4.1 patch causes the
above error, since I successed in building guile-emacs after I
applied it against mule-conf.el in reverse.

Thanks a lot.


diff -ur emacs-20.7/lisp/international/mule-conf.el emacs-20.7-mule-4.1/lisp/international/mule-conf.el
--- emacs-20.7/lisp/international/mule-conf.el	Fri Jun  4 08:27:31 1999
+++ emacs-20.7-mule-4.1/lisp/international/mule-conf.el	Fri Jun 16 09:25:41 2000
@@ -351,17 +351,23 @@
       coding-category-iso-7-else	'iso-2022-7bit-lock
       coding-category-iso-8-else	'iso-2022-8bit-ss2
       coding-category-ccl		nil
+      coding-category-utf-8             nil
+      coding-category-utf-16-be         nil
+      coding-category-utf-16-le         nil
       coding-category-big5		'chinese-big5
       coding-category-raw-text		'raw-text
       coding-category-binary		'no-conversion)
 
 (set-coding-priority
- '(coding-category-iso-8-1
+ '(coding-category-utf-16-be
+   coding-category-utf-16-le
+   coding-category-iso-8-1
    coding-category-iso-8-2
    coding-category-iso-7-tight
    coding-category-iso-7
    coding-category-iso-7-else
    coding-category-iso-8-else
+   coding-category-utf-8
    coding-category-emacs-mule
    coding-category-raw-text
    coding-category-sjis 


-- 
SAKA Toshihide