commit: Expand the documentation of #'eq-hash, mention the CL PRINT-OBJECT protocol
13 years, 12 months
Aidan Kehoe
Aidan Kehoe
changeset: 5520:05c1ad4f7a7b
tag: tip
user: Aidan Kehoe <kehoea(a)parhasard.net>
date: Sun Jun 19 16:37:17 2011 +0100
files: src/ChangeLog src/elhash.c
description:
Expand the documentation of #'eq-hash, mention the CL PRINT-OBJECT protocol
2011-06-19 Aidan Kehoe <kehoea(a)parhasard.net>
* elhash.c (Feq_hash):
Document that this returns, for non-immediate objects, a value
that is unique among currently-reachable objects.
diff -r bcd74c477a38 -r 05c1ad4f7a7b src/ChangeLog
--- a/src/ChangeLog Sat Jun 04 14:17:59 2011 +0100
+++ b/src/ChangeLog Sun Jun 19 16:37:17 2011 +0100
＠＠ -1,3 +1,9 ＠＠
+2011-06-19 Aidan Kehoe <kehoea(a)parhasard.net>
+
+ * elhash.c (Feq_hash):
+ Document that this returns, for non-immediate objects, a value
+ that is unique among currently-reachable objects.
+
2011-05-29 Didier Verna <didier(a)xemacs.org>
* console-impl.h (struct console_methods): Remove device parameter
diff -r bcd74c477a38 -r 05c1ad4f7a7b src/elhash.c
--- a/src/elhash.c Sat Jun 04 14:17:59 2011 +0100
+++ b/src/elhash.c Sun Jun 19 16:37:17 2011 +0100
＠＠ -2008,6 +2008,10 ＠＠
DEFUN ("eq-hash", Feq_hash, 1, 1, 0, /*
Return a hash value for OBJECT appropriate for use with `eq.'
+
+If OBJECT is not immediate (it is not a fixnum or character) this hash value
+will be unique among currently-reachable objects, and is appropriate for
+implementing the Common Lisp PRINT-OBJECT protocol.
*/
(object))
{
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://lists.xemacs.org/mailman/listinfo/xemacs-patches
- 1 participants
- 0 comments
[COMMIT] Switch to #'dolist instead of #'mapcar in a couple of places if result not used
14 years
Aidan Kehoe
Aidan Kehoe
APPROVE COMMIT
NOTE: This patch has been committed.
# HG changeset patch
# User Aidan Kehoe <kehoea(a)parhasard.net>
# Date 1307193479 -3600
# Node ID bcd74c477a387f6a7ea62cf0244af98635c473ac
# Parent 3cc7470ea71c67a24a19e0185caa0271fe46933a
Switch to #'dolist instead of #'mapcar in a couple of places if result not used
2011-06-04 Aidan Kehoe <kehoea(a)parhasard.net>
* gutter-items.el (add-tab-to-gutter):
* toolbar-items.el (toolbar-add-item-data):
Switch to #'dolist instead of #'mapcar in a couple of places where
the result isn't used. (Committed now mostly to trigger a commit
mail so Mats' buildbot gets woken up.)
diff -r 3cc7470ea71c -r bcd74c477a38 lisp/ChangeLog
--- a/lisp/ChangeLog Fri Jun 03 18:40:57 2011 +0100
+++ b/lisp/ChangeLog Sat Jun 04 14:17:59 2011 +0100
＠＠ -1,3 +1,11 ＠＠
+2011-06-04 Aidan Kehoe <kehoea(a)parhasard.net>
+
+ * gutter-items.el (add-tab-to-gutter):
+ * toolbar-items.el (toolbar-add-item-data):
+ Switch to #'dolist instead of #'mapcar in a couple of places where
+ the result isn't used. (Committed now mostly to trigger a commit
+ mail so Mats' buildbot gets woken up.)
+
2011-05-29 Aidan Kehoe <kehoea(a)parhasard.net>
* cl-macs.el (cl-transform-lambda):
diff -r 3cc7470ea71c -r bcd74c477a38 lisp/gutter-items.el
--- a/lisp/gutter-items.el Fri Jun 03 18:40:57 2011 +0100
+++ b/lisp/gutter-items.el Sat Jun 04 14:17:59 2011 +0100
＠＠ -314,28 +314,26 ＠＠
(remove-gutter-element left-gutter 'buffers-tab)
(remove-gutter-element right-gutter 'buffers-tab)
;; Put tabs into all devices that will be able to display them
- (mapcar
- #'(lambda (x)
- (when (valid-image-instantiator-format-p 'tab-control x)
- (cond ((eq gutter-buffers-tab-orientation 'top)
- ;; This looks better than a 3d border
- (set-specifier top-gutter-border-width 0 'global x)
- (set-gutter-element top-gutter 'buffers-tab
- gutter-string 'global x))
- ((eq gutter-buffers-tab-orientation 'bottom)
- (set-specifier bottom-gutter-border-width 0 'global x)
- (set-gutter-element bottom-gutter 'buffers-tab
- gutter-string 'global x))
- ((eq gutter-buffers-tab-orientation 'left)
- (set-specifier left-gutter-border-width 0 'global x)
- (set-gutter-element left-gutter 'buffers-tab
- gutter-string 'global x))
- ((eq gutter-buffers-tab-orientation 'right)
- (set-specifier right-gutter-border-width 0 'global x)
- (set-gutter-element right-gutter 'buffers-tab
- gutter-string 'global x))
- )))
- (console-type-list))))
+ (dolist (x (console-type-list))
+ (when (valid-image-instantiator-format-p 'tab-control x)
+ (case gutter-buffers-tab-orientation
+ (top
+ ;; This looks better than a 3d border
+ (set-specifier top-gutter-border-width 0 'global x)
+ (set-gutter-element top-gutter 'buffers-tab
+ gutter-string 'global x))
+ (bottom
+ (set-specifier bottom-gutter-border-width 0 'global x)
+ (set-gutter-element bottom-gutter 'buffers-tab
+ gutter-string 'global x))
+ (left
+ (set-specifier left-gutter-border-width 0 'global x)
+ (set-gutter-element left-gutter 'buffers-tab
+ gutter-string 'global x))
+ (right
+ (set-specifier right-gutter-border-width 0 'global x)
+ (set-gutter-element right-gutter 'buffers-tab gutter-string 'global
+ x)))))))
(defun update-tab-in-gutter (frame &optional force-selection)
"Update the tab control in the gutter area."
diff -r 3cc7470ea71c -r bcd74c477a38 lisp/toolbar-items.el
--- a/lisp/toolbar-items.el Fri Jun 03 18:40:57 2011 +0100
+++ b/lisp/toolbar-items.el Sat Jun 04 14:17:59 2011 +0100
＠＠ -454,26 +454,20 ＠＠
(defun toolbar-add-item-data (icon-list &optional icon-dir)
(if (eq icon-dir nil)
(setq icon-dir toolbar-icon-directory))
- (mapcar
- (lambda (cons)
- (let ((prefix (expand-file-name (cdr cons) icon-dir)))
- ;; #### This should use a better mechanism for finding the
- ;; glyphs, allowing for formats other than x[pb]m. Look at
- ;; `widget-glyph-find' for an example how it might be done.
- (set (car cons)
- (if (featurep 'xpm)
- (toolbar-make-button-list
- (concat prefix "-up.xpm")
- nil
- (concat prefix "-xx.xpm")
- (concat prefix "-cap-up.xpm")
- nil
- (concat prefix "-cap-xx.xpm"))
- (toolbar-make-button-list
- (concat prefix "-up.xbm")
- (concat prefix "-dn.xbm")
- (concat prefix "-xx.xbm"))))))
- icon-list))
+ (dolist (cons icon-list)
+ (let ((prefix (expand-file-name (cdr cons) icon-dir)))
+ ;; #### This should use a better mechanism for finding the
+ ;; glyphs, allowing for formats other than x[pb]m. Look at
+ ;; `widget-glyph-find' for an example how it might be done.
+ (set (car cons)
+ (if (load-time-value (featurep 'xpm))
+ (toolbar-make-button-list (concat prefix "-up.xpm") nil
+ (concat prefix "-xx.xpm")
+ (concat prefix "-cap-up.xpm")
+ nil (concat prefix "-cap-xx.xpm"))
+ (toolbar-make-button-list (concat prefix "-up.xbm")
+ (concat prefix "-dn.xbm")
+ (concat prefix "-xx.xbm")))))))
(defvar toolbar-vector-open
[toolbar-file-icon toolbar-open t "Open a file"]
--
‘Iodine deficiency was endemic in parts of the UK until, through what has been
described as “an unplanned and accidental public health triumph”, iodine was
added to cattle feed to improve milk production in the 1930s.’
(EN Pearce, Lancet, June 2011)
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://lists.xemacs.org/mailman/listinfo/xemacs-patches
- 1 participants
- 0 comments
commit: Switch to #'dolist instead of #'mapcar in a couple of places if result not used
14 years
Aidan Kehoe
Aidan Kehoe
changeset: 5519:bcd74c477a38
tag: tip
user: Aidan Kehoe <kehoea(a)parhasard.net>
date: Sat Jun 04 14:17:59 2011 +0100
files: lisp/ChangeLog lisp/gutter-items.el lisp/toolbar-items.el
description:
Switch to #'dolist instead of #'mapcar in a couple of places if result not used
2011-06-04 Aidan Kehoe <kehoea(a)parhasard.net>
* gutter-items.el (add-tab-to-gutter):
* toolbar-items.el (toolbar-add-item-data):
Switch to #'dolist instead of #'mapcar in a couple of places where
the result isn't used. (Committed now mostly to trigger a commit
mail so Mats' buildbot gets woken up.)
diff -r 3cc7470ea71c -r bcd74c477a38 lisp/ChangeLog
--- a/lisp/ChangeLog Fri Jun 03 18:40:57 2011 +0100
+++ b/lisp/ChangeLog Sat Jun 04 14:17:59 2011 +0100
＠＠ -1,3 +1,11 ＠＠
+2011-06-04 Aidan Kehoe <kehoea(a)parhasard.net>
+
+ * gutter-items.el (add-tab-to-gutter):
+ * toolbar-items.el (toolbar-add-item-data):
+ Switch to #'dolist instead of #'mapcar in a couple of places where
+ the result isn't used. (Committed now mostly to trigger a commit
+ mail so Mats' buildbot gets woken up.)
+
2011-05-29 Aidan Kehoe <kehoea(a)parhasard.net>
* cl-macs.el (cl-transform-lambda):
diff -r 3cc7470ea71c -r bcd74c477a38 lisp/gutter-items.el
--- a/lisp/gutter-items.el Fri Jun 03 18:40:57 2011 +0100
+++ b/lisp/gutter-items.el Sat Jun 04 14:17:59 2011 +0100
＠＠ -314,28 +314,26 ＠＠
(remove-gutter-element left-gutter 'buffers-tab)
(remove-gutter-element right-gutter 'buffers-tab)
;; Put tabs into all devices that will be able to display them
- (mapcar
- #'(lambda (x)
- (when (valid-image-instantiator-format-p 'tab-control x)
- (cond ((eq gutter-buffers-tab-orientation 'top)
- ;; This looks better than a 3d border
- (set-specifier top-gutter-border-width 0 'global x)
- (set-gutter-element top-gutter 'buffers-tab
- gutter-string 'global x))
- ((eq gutter-buffers-tab-orientation 'bottom)
- (set-specifier bottom-gutter-border-width 0 'global x)
- (set-gutter-element bottom-gutter 'buffers-tab
- gutter-string 'global x))
- ((eq gutter-buffers-tab-orientation 'left)
- (set-specifier left-gutter-border-width 0 'global x)
- (set-gutter-element left-gutter 'buffers-tab
- gutter-string 'global x))
- ((eq gutter-buffers-tab-orientation 'right)
- (set-specifier right-gutter-border-width 0 'global x)
- (set-gutter-element right-gutter 'buffers-tab
- gutter-string 'global x))
- )))
- (console-type-list))))
+ (dolist (x (console-type-list))
+ (when (valid-image-instantiator-format-p 'tab-control x)
+ (case gutter-buffers-tab-orientation
+ (top
+ ;; This looks better than a 3d border
+ (set-specifier top-gutter-border-width 0 'global x)
+ (set-gutter-element top-gutter 'buffers-tab
+ gutter-string 'global x))
+ (bottom
+ (set-specifier bottom-gutter-border-width 0 'global x)
+ (set-gutter-element bottom-gutter 'buffers-tab
+ gutter-string 'global x))
+ (left
+ (set-specifier left-gutter-border-width 0 'global x)
+ (set-gutter-element left-gutter 'buffers-tab
+ gutter-string 'global x))
+ (right
+ (set-specifier right-gutter-border-width 0 'global x)
+ (set-gutter-element right-gutter 'buffers-tab gutter-string 'global
+ x)))))))
(defun update-tab-in-gutter (frame &optional force-selection)
"Update the tab control in the gutter area."
diff -r 3cc7470ea71c -r bcd74c477a38 lisp/toolbar-items.el
--- a/lisp/toolbar-items.el Fri Jun 03 18:40:57 2011 +0100
+++ b/lisp/toolbar-items.el Sat Jun 04 14:17:59 2011 +0100
＠＠ -454,26 +454,20 ＠＠
(defun toolbar-add-item-data (icon-list &optional icon-dir)
(if (eq icon-dir nil)
(setq icon-dir toolbar-icon-directory))
- (mapcar
- (lambda (cons)
- (let ((prefix (expand-file-name (cdr cons) icon-dir)))
- ;; #### This should use a better mechanism for finding the
- ;; glyphs, allowing for formats other than x[pb]m. Look at
- ;; `widget-glyph-find' for an example how it might be done.
- (set (car cons)
- (if (featurep 'xpm)
- (toolbar-make-button-list
- (concat prefix "-up.xpm")
- nil
- (concat prefix "-xx.xpm")
- (concat prefix "-cap-up.xpm")
- nil
- (concat prefix "-cap-xx.xpm"))
- (toolbar-make-button-list
- (concat prefix "-up.xbm")
- (concat prefix "-dn.xbm")
- (concat prefix "-xx.xbm"))))))
- icon-list))
+ (dolist (cons icon-list)
+ (let ((prefix (expand-file-name (cdr cons) icon-dir)))
+ ;; #### This should use a better mechanism for finding the
+ ;; glyphs, allowing for formats other than x[pb]m. Look at
+ ;; `widget-glyph-find' for an example how it might be done.
+ (set (car cons)
+ (if (load-time-value (featurep 'xpm))
+ (toolbar-make-button-list (concat prefix "-up.xpm") nil
+ (concat prefix "-xx.xpm")
+ (concat prefix "-cap-up.xpm")
+ nil (concat prefix "-cap-xx.xpm"))
+ (toolbar-make-button-list (concat prefix "-up.xbm")
+ (concat prefix "-dn.xbm")
+ (concat prefix "-xx.xbm")))))))
(defvar toolbar-vector-open
[toolbar-file-icon toolbar-open t "Open a file"]
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://lists.xemacs.org/mailman/listinfo/xemacs-patches
- 1 participants
- 0 comments
[COMMIT] gnuclient: if TMPDIR was set and connect failed, try again with /tmp
14 years
Aidan Kehoe
Aidan Kehoe
This came up with an upgrade of my machine to Mac OS 10.6.
APPROVE COMMIT
NOTE: This patch has been committed.
# HG changeset patch
# User Aidan Kehoe <kehoea(a)parhasard.net>
# Date 1307122857 -3600
# Node ID 3cc7470ea71c67a24a19e0185caa0271fe46933a
# Parent 5e128eda1d1f4be901c67698b214a2d51fb80ba4
gnuclient: if TMPDIR was set and connect failed, try again with /tmp
2011-06-03 Aidan Kehoe <kehoea(a)parhasard.net>
* gnuslib.c (connect_to_unix_server):
Retry with /tmp as a directory in which to search for Unix sockets
if an attempt to connect with some other directory failed (which
may be because gnuclient and gnuserv don't share an environment
value for TMPDIR, or because gnuserv was compiled with USE_TMPDIR
turned off).
diff -r 5e128eda1d1f -r 3cc7470ea71c lib-src/ChangeLog
--- a/lib-src/ChangeLog Wed Jun 01 14:53:44 2011 +0200
+++ b/lib-src/ChangeLog Fri Jun 03 18:40:57 2011 +0100
＠＠ -1,3 +1,12 ＠＠
+2011-06-03 Aidan Kehoe <kehoea(a)parhasard.net>
+
+ * gnuslib.c (connect_to_unix_server):
+ Retry with /tmp as a directory in which to search for Unix sockets
+ if an attempt to connect with some other directory failed (which
+ may be because gnuclient and gnuserv don't share an environment
+ value for TMPDIR, or because gnuserv was compiled with USE_TMPDIR
+ turned off).
+
2011-05-20 Jerry James <james(a)xemacs.org>
* Makefile.in.in: Default DESTDIR to the empty string, and use it in
diff -r 5e128eda1d1f -r 3cc7470ea71c lib-src/gnuslib.c
--- a/lib-src/gnuslib.c Wed Jun 01 14:53:44 2011 +0200
+++ b/lib-src/gnuslib.c Fri Jun 03 18:40:57 2011 +0100
＠＠ -266,26 +266,52 ＠＠
{
int s; /* connected socket descriptor */
struct sockaddr_un server; /* for unix connections */
+ char *ctus_tmpdir = tmpdir;
- if ((s = socket(AF_UNIX,SOCK_STREAM,0)) < 0) {
- perror(progname);
- fprintf(stderr,"%s: unable to create socket\n",progname);
- exit(1);
- }; /* if */
+ do
+ {
+ if ((s = socket(AF_UNIX,SOCK_STREAM,0)) < 0) {
+ perror(progname);
+ fprintf(stderr,"%s: unable to create socket\n",progname);
+ exit(1);
+ }; /* if */
- server.sun_family = AF_UNIX;
+ server.sun_family = AF_UNIX;
+
#ifdef HIDE_UNIX_SOCKET
- sprintf(server.sun_path,"%s/gsrvdir%d/gsrv",tmpdir,(int)geteuid());
+ sprintf(server.sun_path,"%s/gsrvdir%d/gsrv", ctus_tmpdir,
+ (int)geteuid());
#else /* HIDE_UNIX_SOCKET */
- sprintf(server.sun_path,"%s/gsrv%d",tmpdir,(int)geteuid());
+ sprintf(server.sun_path,"%s/gsrv%d", ctus_tmpdir,
+ (int)geteuid());
#endif /* HIDE_UNIX_SOCKET */
- if (connect(s,(struct sockaddr *)&server,strlen(server.sun_path)+2) < 0) {
- perror(progname);
- fprintf(stderr,"%s: unable to connect to local\n",progname);
- exit(1);
- }; /* if */
+ if (connect(s,(struct sockaddr *)&server,strlen(server.sun_path)+2) < 0) {
+#ifndef WIN32_NATIVE
+#ifdef USE_TMPDIR
+ if (0 != strcmp (ctus_tmpdir, "/tmp"))
+ {
+ /* Try again; the server may have no environment value for
+ TMPDIR, or it may have been compiled without USE_TMPDIR, and
+ in both those cases it's useful to retry with /tmp.
- return(s);
+ In the case where the server was compiled with USE_TMPDIR and
+ it has a value for TMPDIR distinct from ours, we have no way of
+ working out what that value is, so it's appropriate to give
+ up. */
+ close (s);
+ ctus_tmpdir = "/tmp";
+ continue;
+ }
+#endif /* USE_TMPDIR */
+#endif /* !WIN32_NATIVE */
+ perror(progname);
+ fprintf(stderr,"%s: %s: unable to connect to local\n", progname,
+ server.sun_path);
+ exit(1);
+ }; /* if */
+
+ return(s);
+ } while (1);
} /* connect_to_unix_server */
#endif /* UNIX_DOMAIN_SOCKETS */
--
‘Iodine deficiency was endemic in parts of the UK until, through what has been
described as “an unplanned and accidental public health triumph”, iodine was
added to cattle feed to improve milk production in the 1930s.’
(EN Pearce, Lancet, June 2011)
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://lists.xemacs.org/mailman/listinfo/xemacs-patches
- 1 participants
- 0 comments
[Q] New function OBJECT-ADDRESS.
14 years
Stephen J. Turnbull
Stephen J. Turnbull
QUERY
Please rename this function to something like `object-identifier'.
Addresses should not be visible to Lisp.
Didier Verna writes:
> New function OBJECT-ADDRESS.
>
> -------------------- ChangeLog entries follow: --------------------
>
>
> src/ChangeLog addition:
>
> 2011-06-01 Didier Verna <didier(a)xemacs.org>
>
> * fns.c (Fobject_address): New function.
> * fns.c (syms_of_fns): DEFSUBR it.
>
>
> diff -r f87be7ddd60d -r fa5fc2e3d9a6 src/ChangeLog
> --- a/src/ChangeLog Sun May 29 20:56:07 2011 +0200
> +++ b/src/ChangeLog Wed Jun 01 10:53:50 2011 +0200
> ＠＠ -1,3 +1,8 ＠＠
> +2011-06-01 Didier Verna <didier(a)xemacs.org>
> +
> + * fns.c (Fobject_address): New function.
> + * fns.c (syms_of_fns): DEFSUBR it.
> +
> 2011-05-29 Didier Verna <didier(a)xemacs.org>
>
> * console-impl.h (struct console_methods): Remove device parameter
> diff -r f87be7ddd60d -r fa5fc2e3d9a6 src/fns.c
> --- a/src/fns.c Sun May 29 20:56:07 2011 +0200
> +++ b/src/fns.c Wed Jun 01 10:53:50 2011 +0200
> ＠＠ -6213,6 +6213,36 ＠＠
> }
>
>
> +DEFUN ("object-address", Fobject_address, 1, 1, 0, /*
> +Return OBJECT's memory address as an integer.
> +This may be useful for customized printing of unreadable Lisp objects.
> +As this only makes sense for record type objects, this function returns nil
> +for chars and integers.
> +*/
> + (object))
> +{
> + switch (XTYPE (object))
> + {
> + case Lisp_Type_Int_Even:
> + case Lisp_Type_Int_Odd:
> + case Lisp_Type_Char:
> + {
> + return Qnil;
> + }
> + case Lisp_Type_Record:
> + {
> + return make_integer ((EMACS_INT) GET_VOID_FROM_LISP (object));
> + }
> + default:
> + {
> + signal_error (Qinternal_error,
> + "Internal error: illegal lisp object tag type",
> + object);
> + }
> + }
> +}
> +
> +
>
> static Lisp_Object
> tweaked_internal_equal (Lisp_Object obj1, Lisp_Object obj2,
> ＠＠ -11786,6 +11816,7 ＠＠
> DEFSUBR (Fremprop);
> DEFSUBR (Fobject_plist);
> DEFSUBR (Fobject_setplist);
> + DEFSUBR (Fobject_address);
> DEFSUBR (Fequal);
> DEFSUBR (Fequalp);
> DEFSUBR (Ffill);
>
> _______________________________________________
> XEmacs-Patches mailing list
> XEmacs-Patches(a)xemacs.org
> http://lists.xemacs.org/mailman/listinfo/xemacs-patches
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://lists.xemacs.org/mailman/listinfo/xemacs-patches
- 1 participants
- 0 comments
[COMMIT] New function OBJECT-ADDRESS
14 years
Didier Verna
Didier Verna
NOTE: This patch has been committed.
This patch adds a lisp function OBJECT-ADDRESS. See the docstring for
an explanation.
src/ChangeLog addition:
2011-06-01 Didier Verna <didier(a)xemacs.org>
* fns.c (Fobject_address): New function.
* fns.c (syms_of_fns): DEFSUBR it.
XEmacs 21.5 source patch:
Diff command: hg diff --git --show-function
Files affected: src/fns.c
diff --git a/src/fns.c b/src/fns.c
--- a/src/fns.c
+++ b/src/fns.c
＠＠ -6213,6 +6213,36 ＠＠ not allow their modification with `objec
}
+DEFUN ("object-address", Fobject_address, 1, 1, 0, /*
+Return OBJECT's memory address as an integer.
+This may be useful for customized printing of unreadable Lisp objects.
+As this only makes sense for record type objects, this function returns nil
+for chars and integers.
+*/
+ (object))
+{
+ switch (XTYPE (object))
+ {
+ case Lisp_Type_Int_Even:
+ case Lisp_Type_Int_Odd:
+ case Lisp_Type_Char:
+ {
+ return Qnil;
+ }
+ case Lisp_Type_Record:
+ {
+ return make_integer ((EMACS_INT) GET_VOID_FROM_LISP (object));
+ }
+ default:
+ {
+ signal_error (Qinternal_error,
+ "Internal error: illegal lisp object tag type",
+ object);
+ }
+ }
+}
+
+
static Lisp_Object
tweaked_internal_equal (Lisp_Object obj1, Lisp_Object obj2,
＠＠ -11786,6 +11816,7 ＠＠ syms_of_fns (void)
DEFSUBR (Fremprop);
DEFSUBR (Fobject_plist);
DEFSUBR (Fobject_setplist);
+ DEFSUBR (Fobject_address);
DEFSUBR (Fequal);
DEFSUBR (Fequalp);
DEFSUBR (Ffill);
--
Resistance is futile. You will be jazzimilated.
Scientific site: http://www.lrde.epita.fr/~didier
Music (Jazz) site: http://www.didierverna.com
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://lists.xemacs.org/mailman/listinfo/xemacs-patches
- 2 participants
- 1 comments