Mercurial > hg > xemacs-beta
view src/vdb.h @ 5285:99de5fd48e87
Tighten up Common Lisp compatibility, #'butlast, #'nbutlast, #'tailp, #'ldiff
lisp/ChangeLog addition:
2010-10-14 Aidan Kehoe <kehoea@parhasard.net>
* byte-optimize.el (side-effect-free-fns):
* cl-macs.el (remf, getf):
* cl-extra.el (tailp, cl-set-getf, cl-do-remf):
* cl.el (ldiff, endp):
Tighten up Common Lisp compatibility for #'ldiff, #'endp, #'tailp;
add circularity checking for the first two.
#'cl-set-getf and #'cl-do-remf were Lisp implementations of
#'plist-put and #'plist-remprop; change the names to aliases,
changes the macros that use them to using #'plist-put and
#'plist-remprop directly.
src/ChangeLog addition:
2010-10-14 Aidan Kehoe <kehoea@parhasard.net>
* fns.c (Fnbutlast, Fbutlast):
Tighten up Common Lisp compatibility for these two functions; they
need to operate on dotted lists without erroring.
tests/ChangeLog addition:
2010-10-14 Aidan Kehoe <kehoea@parhasard.net>
* automated/lisp-tests.el (x):
Test #'nbutlast, #'butlast with dotted lists.
Check that #'ldiff and #'tailp don't hang on circular lists; check
that #'tailp returns t with circular lists when that is
appropriate. Test them both with dotted lists.
author | Aidan Kehoe <kehoea@parhasard.net> |
---|---|
date | Thu, 14 Oct 2010 18:50:38 +0100 |
parents | 141c2920ea48 |
children | 308d34e9f07d |
line wrap: on
line source
/* Virtual diry bit implementation for XEmacs. Copyright (C) 2005 Marcus Crestani. This file is part of XEmacs. XEmacs is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. XEmacs is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with XEmacs; see the file COPYING. If not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* Synched up with: Not in FSF. */ #include "lisp.h" #ifndef INCLUDED_vdb_h_ #define INCLUDED_vdb_h_ /*--- prototypes -------------------------------------------------------*/ BEGIN_C_DECLS /* Platform dependent signal handling: */ /* Install the platform-dependent signal handler. */ void vdb_install_signal_handler (void); /* Platform dependent memory protection. */ void vdb_protect (void *ptr, EMACS_INT len); void vdb_unprotect (void *ptr, EMACS_INT len); /* Common (platform independent) virtual diry bit stuff: */ /* Start the write barrier. This function is called when a garbage collection is suspendend and the client is resumed. */ void vdb_start_dirty_bits_recording (void); /* Stop the write barrier. This function is called when the client is suspendend and garbage collection is resumed. */ void vdb_stop_dirty_bits_recording (void); /* Record page faults: Add the object pointed to by addr to the write barrer's internal data structure that stores modified objects. This function is called by the write barrier's fault handler. */ void vdb_designate_modified (void *addr); /* Propagate page faults to garbage collector: Read out the write barrier's internal data structure that stores modified objects and pass the information to the garbage collector. This function is called by vdb_stop_dirty_bits_recording(). Return how many objects have to be re-examined by the garbage collector. */ int vdb_read_dirty_bits (void); /* Provides Lisp functions for testing vdb implementation. */ void syms_of_vdb (void); END_C_DECLS #endif /* INCLUDED_vdb_h_ */